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ABSTRACT 


Loss  measurements  were  conducted  using  a  five-hole  conical 
pneumatic  probe  in  a  subsonic  wind  tunnel  containing  a  modeled 
cascade  of  controlled  diffusion  (CD)  stator  blades  ^'^llcwing 
reference  measurements  at  high  incidence  one  blade  was  modi¬ 
fied  (slotted  at  the  leading  edge)  in  an  attempt  to  (passive¬ 
ly)  reduce  the  size  of  the  leading  edge  separation  bubble  and 
thereby  improve  performance.  Prior  to  the  surveys,  the  acqui¬ 
sition  and  reduction  software  was  modified  to  provide  loss 
calculations  using  both  mass-averaged  and  f ully-mixed-out 
conditions  for  the  upstream  and  downstream  flows.  Results 
showed  that  the  mass-averaged  method  provided  the  more  consis¬ 
tent  results,  and  this  was  explained.  The  slotted  leading 
edge  blade  was  found  to  produce  less  loss  than  the  reference 
blade,  and  it  was  concluded  that  the  control  concept  should  be 
explored  in  more  detail . 
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I. 


INTRODUCTION 


The  current  drive  for  highly  maneuverable,  short  take  off 
and  landing  (STOL) ,  and  short  take  off,  vertical  landing 
(STOVL)  aircraft  is  generating  a  demand  for  efficient  aircraft 
engines  which  are  also  capable  of  operating  stably  at  extreme 
angles  of  attack  and  with  distorted  inlet  flow  fields.  Such 
operating  conditions  push  the  engines  towards  stall.  Hence 
there  is  need  for  accurately  predicting  the  available  stall 
margin  for  a  new  engine,  and  for  developing  compressor  designs 
which  have  wide  stall  margins  at  high  efficiencies. 

Developing  components  and  testing  assembled  engines  for 
performance  and  stable  operating  margins,  is  enormously  costly 
and  a  lengthy  process.  Computational  fluid  dynamics  (CFD) 
potentially  provides  a  means  of  modeling  the  engine  flow 
fields  and  of  evaluating  the  stall  margin  and  efficiency 
during  the  design  process.  Thus  the  designer  has  the  ability 
now  to  select  and  incorporate  compressor  blade  shapes  which 
allow  the  engine  to  achieve  the  desired  characteristics.  The 
CFD  codes  used  for  design  purposes  must  first  be  validated  by 
comparison  with  cascade  wind  tunnel  data  for  flow  structure 
and  blade  element  performance.  Laser  doppler  velocimeter 
(LDV)  systems  provide  information  on  the  flow  structure  by 
mapping  the  velocity  field.  Pressure  probe  measurements  are 
required  to  determine  the  loss  coefficient,  which  is  the  key 
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measure  of  the  blade  performance.  Accurate  loss  measurements 
using  a  pressure  probe  in  the  Naval  Postgraduate  School's 
(NPS)  cascade  wind  tunnel  facility,  including  exploratory 
tests  of  a  blade  leading  edge  modification,  were  the  focus  of 
the  present  study. 

The  cascade  wind  tunnel  was  configured  with  the  mid 
section  of  a  controlled  diffusion  (CD)  stator  blade  designed 
by  Sanger  [Ref.  1]  at  NASA  Lewis  Research  Center.  Previous 
studies  with  the  present  CD  blading  include  the  work  of 
Koyuncu  [Ref.  2],  who  conducted  pressure  probe  tests  at  air 
inlet  angles  from  24.3  degrees  to  47.2  degrees  to  establish 
on-  and  off-design  blade  losses.  Subsequently,  Dreon  [Ref.  3] 
measured  losses  at  various  positions  moving  downstream  through 
the  wake  and  concentrated  on  verifying  the  accuracy  of  the 
loss  measurements  at  the  air-inlet  angles  of  40.3  and  43.4 
degrees.  The  detailed  flow  structure  was  mapped  by  Elazar 
[Ref.  4],  who  obtained  LDV  measurements  of  the  flow  through 
the  passage  formed  by  adjacent  blades,  of  the  boundary  layer 
development  on  the  blade  surfaces  and  of  the  early  wake 
development.  Hot-wire  measurements  were  obtained  by  Baydar 
[Ref.  5]  to  verify  the  LDV  measurements  of  Elazar.  Classick 
[Ref.  6]  improved  the  data  acquisition  and  reduction  process 
for  pressure  probe  measurements  using  new  computer  hardware, 
documented  a  user  manual  and  made  demonstration  measurements. 
Classick 's  and  Dreon 's  work  provided  the  background  for  the 
present  study.  The  cascade  flow  field  was  found  to  be 
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acceptably  periodic  and  showed  good  span-wise  independence  in 
each  of  the  earlier  studies. 

In  the  present  work,  the  software  and  procedures  developed 
by  Classick  were  used  to  obtain  accurate  measurements  to 
establish  the  blade  element  performance  at  a  high  air  inlet 
angle  near  stall.  The  measurements  were  used  to  examine  the 
possible  standardization  of  cascade  blade  loss  measurements  in 
terms  of  "fully  mixed-out  flow"  conditions,  and  as  a  reference 
against  which  to  evaluate  performance  changes  caused  by 
leading  edge  modifications.  Cascade  losses  as  evaluated  from 
the  "mass-average"  of  stagnation  pressure  surveys  can  vary 
depending  on  the  locations  of  the  probe  survey  stations. 
Calculating  the  loss  using  the  fully  mixed-out  conditions  from 
both  the  upstream  and  downstream  survey  stations,  in  principle 
provides  a  loss  measurement  that  is  independent  of  survey 
station.  With  respect  to  modifying  the  leading  edge,  at  off- 
design  incidence  angles,  the  leading-edge  separation  bubble  on 
the  suction  side  of  the  blade  generates  a  significant  loss. 
By  introducing  counter  rotating  streamwise  vortices  at  the 
leading  edge  of  the  blade  (by  creating  a  series  of  diagonal 
slots  to  generate  a  pattern  of  oblique  jets)  early 
reattachment  will  decrease  the  bubble  size  and  subsequent 
growth  of  the  suction  side  boundary  layer,  thereby  generating 
smaller  losses.  Measuring  accurately  the  loss  of  the 
reference  CD  blade  and  a  slotted  CD  blade  will  establish  the 
blade  element  performance  improvement. 
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The  present  study  involved  further  development  of  the 
measurement  procedures  followed  by  reference  and  modified 
blade  measurements.  First,  the  measured  yaw  angle  was 
correctly  referenced  to  the  blade  row  geometry,  completing  a 
procedure  initiated  by  Classick  [Ref.  6]  .  Secondly,  the  fully 
mixed-out  loss  computation  was  incorporated  into  the  data 
analysis  software  and  the  software  was  validated  using  an 
analytically-constructed  test  case.  A  Reynolds  number 
subroutine  was  also  added.  Finally  comprehensive  pressure 
probe  measurements  at  an  air  inlet  angle  of  48.5  degrees  were 
obtained  for  the  reference  case  and  with  a  single  slotted  CD 
blade  inserted  within  the  cascade  of  reference  blades. 
Conclusions  of  the  study  were  that  mass-averaged  loss 
coefficients  can  be  evaluated  with  less  uncertainty  than  fully 
mixed-out  loss  coefficients  because  of  the  effects  of  slightly 
varying  cascade  inlet  conditions,  and  that  the  slotted  blade 
leading  edge  did  create  significant  upper  surface  flow 
modification,  leading  to  a  measured  blade  element  performance 
improvement . 

The  apparatus  for  the  experiment  is  discussed  in  Section 
II  of  this  report.  Section  III  discusses  the  test  conditions, 
calibration,  referencing,  survey  runs,  survey  positions, 
measurement  uncertainties  and  outlines  the  measurements  taken. 
Section  IV  presents  the  results  for  the  flow  field,  blade 
performance,  and  effect  of  the  modified  leading  edge  on  the 
flow  structure.  The  conclusions  and  recommendations  follow  in 
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Section  V.  Details  of  the  work  are  contained  in  the 
appendices.  Appendix  A  discusses  the  slotted  blade 
development,  from  the  concept  to  the  final  production 
procedures.  The  software,  in  the  form  of  programs, 
subprograms,  data  printouts  and  directory  are  provided  in 
Appendix  B.  The  Reynolds  number  subroutine  is  shown  in 
Appendix  C.  Appendix  D  presents  the  fully  mixed-out  flow 
theory  and  the  validation  test  problem  is  given  in  Appendix  E. 
Appendix  F  addresses  the  probe  angle  referencing  procedure. 
It  should  be  noted  that  Appendix  C  of  Classick  [Ref.  6]  serves 
as  a  users  guide  to  the  computer  and  software. 
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II.  EXPERIMENTAL  APPARATUS 


A.  CASCADE  WIND  TUNNEL 

Figure  1  shows  the  NPS  cascade  wind  tunnel  facility.  The 
test  section  and  instrumentation  are  shown  in  Figure  2.  A 
detailed  description  of  the  facility,  test  section  and  CD 
blading  is  contained  in  Sanger  and  Shreeve  [Ref.  7]. 

B.  CONTROLLED  DIFFUSION  BLADING 

The  design  procedure  for  the  reference  CD  blading  is 
described  in  Reference  1.  Table  1  provides  the  blade 
coordinates,  cascade  geometry  and  nominal  conditions  for  the 
tests.  Figure  3  shows  the  profile  of  a  blade  and  shows  the 
location  of  pressure  taps  on  the  instrumented  blade  (blade  10 
from  the  left  in  Figure  2)  ,  and  the  partially  instrumented 
blade  (blade  11) .  The  slotted  blade  leading  edge  is  shown  in 
Figure  4.  The  slotted  blade  development  from  the  reference  CD 
blade  is  given  in  Appendix  A.  The  reference  blade  and  slotted 
blade  surveys  were  made  behind  blade  7. 

C.  INSTRUMENTATION 

The  five-hole  conical  probe  used  and  described  by  Dreon 
[Ref.  3]  and  calibrated  by  Classick  [Ref.  6]  was  used  for  all 
pressure  probe  measurements. 
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Figure  1.  Linear  Cascade  Wind  Tunnel  Test  Facility 
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Figure  2.  Cascade  Test  Section  and  Instrumentation 


l|  (crcMur*  tide)  11  (aicuoa  tlda)' 

(mm) 

(mm) 

0.000 

0.114 

aii4 

0.05i 

a2i3 

0.H5 

0.003 

0J64 

0.112 

0498 

t.UI 

0237 

a780  ' 

l.<92 

0294 

t.(n4  1 

2-234 

0224 

1.240  1 

2tt9 

0.648 

I.4M 

3JSJ 

0.739 

1277 

3.947 

OJ38 

1.484 

4.311 

0.889 

1.735 

3.07S 

0.912 

1.791 

3  639 

0.912 

1.798 

6203 

0894 

1.711 

4.767 

0.869 

1.730 

7230 

0841 

1.631 

7.494 

0803 

1.549 

1.438 

a763 

1.430 

9.022 

a714 

1293 

9284 

0633 

I.ISI 

10.130 

02n 

0.998 

10.714 

0.485 

0  843 

11271 

0271 

0.686 

11.841 

0224 

a33l 

12403 

0048 

0261 

12210 

12409 

0.010 

a3io 

12723 

I 

ai37 

ai37 

BUdaTVpa 

CoomOed  Dif^uicH1 

Number  of  Bltdca 

20 

Blado  Spadoi 

722  ca 

□lotd 

12.73  cm 

Solkiitr 

U7 

Ixxlhn  E4|eRjdiur 

ailloa 

TtaiUni  Edge  RoUur 

aiS7aa 

Thickoeai 

T% 

Seatiai  Aagle 

142  'tai* 

Su||cr  Aa|l« 

144  'tai* 

Sfum 

23.40  cm 

|NOMU(AL  TEST  CONDII  IONS  | 

Rcyooldj  Na(cbcnl) 
IbUI 

720.000 

Toui  Tcmpemiii* 

294  1C 

Toul  Pmsm 

1.03  ATI4 

7>Uch  Niasbcr 

Eill 

025 

Suuc  Piojiura 

1.00  ATM 

9 


Controlled  Diffusion  Blade  Pressure  Tap  Locations 


Plenum  thermocouple  and  pressure  probes,  Prandtl  probe, 
wall  static  taps  and  instrumented  blades  were  as  described  by 
Classick  [Ref.  6]. 

Inlet  and  outlet  flow  angles  were  recorded  using  a  yaw 
transducer  mounted  on  the  probe  shaft.  Probe  sensor  holes  P2 
and  P5  shown  in  Figure  5  were  used  for  yaw  angle  balancing, 
with  a  water  manometer.  The  (linear)  yaw  transducer  was 
zeroed  in  the  vertical  position  and  the  span  was  set  for  the 
range  to  be  measured. 

A  turn  counter  was  mounted  on  the  motor-driven  traverse 
mechanism  supporting  the  conical  probe.  The  counter,  which 
was  recorded  manually,  provided  the  probe  displacement  in  the 
blade-to-blade  direction.  A  vernier  scale  on  the  probe  mount, 
also  recorded  manually,  gave  the  span-wise  displacement. 

D.  DATA  ACQUISITION  SYSTEM 

1 .  Hardware 

Figure  6  shows  a  schematic  of  the  data  acquisition 
hardware  used  by  Classick  [Ref.  6]  and  in  the  present  work, 
without  any  changes. 

2 .  Software 

a.  ACQUIRE 

Program  ACQUIRE  was  used  to  control  the  data 
acquisition  and  store  the  collected  data  in  memory.  The 
program  was  unchanged  from  the  work  of  Classick.  Appendix  B 
of  Reference  6  contains  the  program  flow  chart  and  complete 
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Figure  5.  Five-hole  Conical  Probe 


Figure  6.  Data  Acquisition  System 


listing.  The  listing  is  included  in  Table  B13  of  the  present 
work . 


b. 

CALC 

Program  CALC  was  used  to  reduce 

the 

data 

to 

engineering 

quantities  and  parameters  to 

be 

used 

in 

the 

subsequent 

loss  calculations.  The  flov; 

of 

the 

program 

remained  the  same  as  in  Classick's  work.  However,  the  program 
was  modified  to  include  calculation  of  the  Reynolds  number, 
provide  yaw  angle  reference  to  the  cascade  through-flow 
direction  and  to  provide  additional  parameters  to  pass  to  the 
program  segment  computing  fully  mixed-out  losses.  The  revised 
listing  and  description  of  changes  are  given  in  Appendix  B. 
c.  LOSS 

Program  LOSS  was  used  to  calculate  the  mass 
averaged  and  fully  mixed-out  losses  for  the  test  blade  from 
the  reduced  data.  The  program  was  derived  from  the  one 
developed  by  Classick.  The  mass  averaged  portion  was  not 
changed.  Subroutine  calls  were  added  to  calculate  the  mixed- 
out  conditions  for  the  upstream  and  downstream  measurements 
and  to  calculate  the  loss  based  on  the  mixed-out  conditions. 
Additional  programming  v.'as  included  to  provide  the  new  output. 
Appendix  B  contains  a  complete  listing  of  the  program  and 
associated  routines. 
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III.  TEST  PROCEDURES  AND  PROGRAM  OF  MEASUREMENTS 


A.  TEST  PROCEDURES 

1 .  Setting  Test  Conditions 

The  inlet  wall  angle  had  been  set  previously  at  48 
degrees  by  Murray  [Ref.  8].  A  complete  report  of  the  angle 
setting  procedures  is  given  in  Appendix  A,  Section  VI  of 
Reference  8.  The  inlet  guide  vanes  were  adjusted  to  ensure 
constant  inlet  flow  angle  in  both  span-wise  and  blade-to-blade 
directions.  The  adjustable  upper  walls  were  adjusted  to 
obtain  uniform  wall  static  pressures  in  the  blade-to-blade 
directions.  All  tests  in  the  present  study  were  conducted  at 
a  wall  angle  setting  of  48  degrees  and  an  inlet  dynamic 
pressure  (Q)  nominally  of  12.1  inches  water.  Atmospheric 
pressure  was  monitored  and  updated  every  hour  of  testing  if 
necessary . 

2 .  Calibration 

Both  Scanivalves  were  calibrated  to  give  a  digital 
output  in  engineering  units,  prior  to  each  test,  using  a 
controlled  source  of  shop  air  and  a  water  manometer.  The  yaw 
was  referenced  perpendicular  to  the  cascade  blade  row  entry 
plane  as  described  in  Appendix  F.  Once  this  reference  had 
been  established,  the  yaw  transducer  was  scaled  at  two  known 
limits  prior  to  each  test,  using  a  digital  inclinometer. 
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3 .  Referencing 


Tunnel  inlet  conditions  at  the  time  of  recording  were 
used  to  reference  the  pressure  and  velocity  values  obtained  by 
reduction  of  probe  test  data  at  each  survey  point.  This  was 
done  to  eliminate  the  effects  that  small  changes  in  the  tunnel 
supply  conditions  might  have  on  the  calculation  of  the  mass 
averaged  loss  coefficient  (Duval  [Ref.  9])  and  the  mixed-out 
loss  coefficient  (Appendix  D) . 

4 .  Probe  Surveys 

Pressure  probe  surveys  involved  recording  a  data  scan 
with  the  probe  positioned  at  intervals  varying  from  .05  to  .6 
inches.  The  surveys  were  conducted  in  span-wise  directions 
across  the  tunnel  and  in  blade-to-blade  directions  along  the 
tunnel  at  the  lower  and  upper  traverse  stations  shown  in 
Figure  2. 

5 .  Measurement  Uncertainties 

The  yaw  angle  was  referenced  and  calibrated  to  ±.l 
degree  accuracy  set  by  limitation  of  the  digital  inclinometer. 
The  balancing  uncertainty  for  the  yaw  angle  was  found  to  be 
±.05  degree  (equal  to  the  variance  when  rebalancing  with  the 
probe  in  a  fixed  position  after  rotating  the  probe  to 
introduce  an  imbalance) .  DVM  fluctuations  were  minimized  by 
using  the  average  of  five  samples  in  the  acquisition  process, 
this  had  no  effect  on  the  accuracy  of  measurements. 
Scanivalve  resolution  was  set  to  .001  inches  of  water  with  an 
estimated  uncertainty  of  0.02  inches  of  water  of  approximately 
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20  inches  of  water.  Probe  position  in  the  blade-to-blade 
direction  was  measured  using  a  counter  with  a  resolution  of 
±.05  inches.  Span-wise  position  was  measured  on  a  vernier 
with  a  resolution  of  ±.l  inches. 

B.  PROGRAM  OF  MEASUREMENTS 

Probe  surveys  were  conducted  in  the  span-wise  and  blade- 
to-blade  directions  to  establish  the  cascade  inlet  condition 
and  the  outlet  flow  fields  behind  the  reference  and  slotted 
blade.  Table  2  contains  a  summary  of  the  probe  surveys 
conducted,  giving  the  survey  number,  the  location,  direction, 
interval  and  number  of  the  figure  in  which  the  reduced  data 
are  shown  plotted. 

First,  a  set  of  probe  surveys  was  conducted  to  establish 
the  flow  quality  into  the  test  section  by  spanning  the  entire 
26  inches  of  traverse  in  the  blade-to-blade  direction. 
Second,  an  upstream  survey  of  the  reference  blade  was 
conducted  in  the  blade-to-blade  and  span-wise  directions. 
Third,  a  downstream  survey  of  the  reference  blade  was 
conducted  in  the  blade-to-blade  direction  and  in  the  span-wise 
direction.  Finally,  a  downstream  survey  of  the  slotted  blade 
was  conducted  in  the  blade-to-blade  direction  and  in  the  span- 
wise  direction.  This  final  blade-to-blade  survey  encompassed 
two  blade  passages  to  provide  data  for  the  slotted  blade  and 
an  adjacent  reference  blade. 
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TABLE  2 


PROBE  SURVEYS 


SURVEY  # 

LOCATION 

DIRECTION 

NOMINAL 

INTERVAL 

FIGURE 

REFERENCE 

CASCADE: 

1 

UPSTREAM 

Blade-to-Blade 
(Blades  4-13) 

.  6  in 

7,8,9 

2 

UPSTREAM 

Span-wise 
(Blade  7) 

.05-. 1  in 

11 

3 

UPSTREAM 

Blade-to-Blade 
(Blade  7) 

.  1  in 

10 

4 

DOWNSTREAM 

Blade-to-Blade 
(Blade  7) 

. 05- . 1  in 

13a, 14a, 
15a 

5 

DOWNSTREAM 

Span-wise 
(Blade  7  — 
Suction) 

.05-. 1  in 

16a, 17a 
18a 

6 

DOWNSTREAM 

Span-wise 
(Blade  7 — 
Pressure) 

.05-. 1  in 

19a, 20a 
21a 

WITH  SLOTTED  BLADE  INSTALLED: 

7 

DOWNSTREAM 

Blade-to-Blade 
(Blades  76(8) 

.05-. 1  in 

13b, 14b 
15b 

8 

DOWNSTREAM 

Span-wise 
(Blade7 — 
Suction) 

. 05- . 1  in 

16b, 17b 
18b 

9 

DOWNSTREAM 

Span-wise 
(Blade  7  — 

.05-. 1  in 

19b, 20b 
21b 

Suction) 


Upstream  and  downstream  surveys  were  made  at  the  traverse 
locations  shown  in  Figure  2 .  The  downstream  span-wise  surveys 
were  located  one  inch  from  a  vertical  extension  of  the 
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trailing  edge  in  both  the  suction  and  pressure  directions. 
Measurement  intervals  were  determined  by  the  interval  to  be 
surveyed.  The  tunnel  surveys  required  intervals  of  .6  inches. 
Upstream  and  downstream  surveys  were  initially  conducted  at  .1 
inch  intervals  with  the  interval  decreased  to  .05  inch 
intervals  when  a  measurable  change  in  the  flow  conditions  was 
apparent.  Instrumented  blade  surface  pressure  measurements 
were  recorded  at  the  end  of  each  of  the  blade-to-blade 
surveys . 

C.  DATA  REDUCTION  AND  PRESENTATION 

The  data  collected  were  first  scaled  to  engineering  units 
and  stored  in  a  "scaled"  file  (Table  B7 ,  Appendix  B)  .  The 
scaled  data  were  then  reduced  using  the  equations  given  in 
Table  3.  The  reduced  data  were  stored  in  a  "calc"  file  (Table 
B8 ,  Appendix  B) .  The  "calc"  file  listing  contains  values  of 
Scanivalve  gauge  pressures,  yaw  transducer  reading,  plenum 
temperature  and  atmospheric  pressure.  The  ensemble  averages 
given  at  the  end  of  the  files  represent  the  nominal  test 
conditions  for  the  survey.  Pressures  are  given  in  inches  of 
water . 

The  "calc"  file  provided  the  inputs  for  loss  measurement 
calculations.  Figure  B3 ,  Appendix  B  is  a  program  LOSS 
printout.  Referring  to  Figure  B3  the  upper  portion  provides 
the  name  of  the  "calc"  files  used  with  the  associated  ensemble 
reference  values  of  the  reference  velocity,  plenum  pressure 
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and  atmospheric  pressure.  The  intermediate  values  in  the  loss 
calculations  using  mass  averaging  follow,  with  the  final 
results  next.  Mixed-out  loss  intermediate  values  are  output 
next  with  the  mixed  out  conditions  of  velocity,  total  pressure 
and  static  pressure  preceding  the  calculated  value  of  the 
mixed-out  loss. 

Appendix  B  of  Reference  6  defines  and  describes  the 
quantities  Beta,  Gamma  and  Phi  which  are  listed  in  the  "calc" 
files.  Table  3  and  the  list  of  symbols  define  all  other 
quantities  in  the  "calc"  files  and  loss  printouts. 
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TABLE  3 


DATA  REDUCTION  FORMULAE 


PARAMETER 


X 


X 


ref 


X 


ref 


Ps 


EXPRESSION 


1/2 


P 

1  - 


1/2 


Y-1 


1  -  " 


1/2 


P^(l  - 


PROGRAMMED 

EXPRESSION 


same 


same 


same 


same 


Ps  ratio 


Y 

P.  ratio (1  -  X^. 
t  mix 


same 


Pt  ratio 


P 


p 


Y 

X  (1-X^)^“^ 

_JE _ E _ 


II 


Y 

X  .  (1-X^.  )^"^cos 

mix  mix  nax 


n 


-  )■  P 

"r^l  P 


same 


same 
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TABLE  3  (CONTINUED) 


1  ^ 

-  [  T 

■"n-l  P 


same 


V 


X(2  C  T  ) 
P  P 


1/2 


X(2Cp(778) (32.174)Tp) 


1/2 


V. 


X  .(2  C  T  ) 
ref  p  p' 


1/2 


X  .(2C  (778) (32.174)T  ) 

J-CJ.  ^  ^ 


1/2 


V 


re^ 


X  A2  C  T  ^ 
rer  p  p 


1/2 


X  .(2C  (778) (3?  174) T  ) 
ret  p  p 


1/2 


same 


'iref 


P  (■  -  ■  )X^  (l-X^ 

p'y-1^  ref^-^  ref^ 


same 


Qr.f 


L  ,1  Z2  ,Y-1 


P^(~V)X^  .(l-X  ^ 
p  Y~1  ref  ref 


same 


II 


X  (l-x^)"^~^ 

p  y 
0  tref  ref 


^  cos3  d(^)  same 


(1-X 


2  ^Y-1 

ref^ 


12 


y?  a-x^V  ^ 


Y-  cos3sin3d(^) 


P  2 

0  tref  X 


same 


(l-X^  jY-1 
ref 
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TABLE  3  (CONTINUED) 


0  ^tref  2  2  ^ 

[x^  .(1-x 

ref  ref 


same 


same 


same 


2(^)  (1  -  :^)A^  - 


same 


(1  -  A^)^  +  B^A^ 

7-1 


same 


X  1-x^  jr-l 


p  ref  1-X  j. 

ref 


cos  6 


same 


AVDR 


/  K„  dx 
0 
2 

/  K,  dx 

r\  -i- 
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TABLE  3  (CONTINUED) 


same 


same 


P,-P  P  -p 
--  a 

P  -P  0 

pa 


P  -P 


S  P  D  S  P  -P 

/  P  ~P  r  a  s 

P  -P  ^  P  J  —  c3x 

,  9.  ^a,  0  .  0  ^ 

_p  ^  5  +_ _ 

P  s  r  S 


/  K, 


ox 


Cp2 


P  -p  P  -p  , 

(^)  P  (^) 


S  P  -P 
f  SU 

0  ^ 


^rC±<  / 


S  P  -p 


a  Si 


0 


dx 


S 

/  K  ,  dx 
0 


/  K^dx 
0  " 


'"pj 


p  .  -p  p  _p 

^  suTax  a^  j  a  s£tm.x 


Q 


IP  .  -P 
r  sumix  a  ,  f 

)  - Q -  ^  J 

0  ^  0 


1  p  -p  ,  . 
a  svjnxx 


dx 


C  -  c 

pt>.  ptu 

c  -  c 

pt£  ps!i 


VDR 
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TABLE  3  (CONTINUED) 


P  .  -P 
tj;3TlLX  tUniLX 

^ref  ^ref 

P  P 

tSjnLx  sUmix 


X^mix 


-D  ±  ^  -4CE 


Pmix 


.  -1  -  A  . 
sin  - ) 

mix 
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IV.  RESULTS  AND  DISCUSSION 


The  results  are  presented  first  for  the  upstream  flow 
field  in  Figures  7-11.  Blade  10  and  the  adjacent  blade 
surface  pressures  are  shown  in  Figure  12.  The  probe  surveys 
downstream  of  blade  7  are  shown  in  Figures  13-21,  with  section 
(a)  of  each  figure  giving  the  reference  case  and  section  (b) 
giving  results  with  the  slotted  blade  installed.  Losses  are 
given  in  Figure  22  and  the  loss  distribution  for  the  reference 
and  slotted  blade  wakes  is  shown  in  Figure  23.  Finally, 
surface  flow  visualization  sketches  are  given  in  Figure  24. 

A.  FLOW  FIELD 

1 .  Upstr  eam  Flov;  Field 

The  inlet  flow  field,  spanning  eight  to  nine  blade 
spaces,  is  shown  in  Figures  7-9.  Deviations  from  a  fully 
uniform  velocity  were  due  to  persistence  of  inlet  guide  vane 
wakes  and  to  slight  non-uniformities  in  the  vane  passage 
geometries.  The  inlet  conditions  in  the  survey  region  of 
blade  seven,  where  the  present  testing  was  based,  was 
acceptably  uniform  in  the  blade-to-blade  direction  as  shown  in 
Figures  7  to  9  and  in  Figure  10,  which  shows  the  results  of 
the  detailed  upstream  survey.  The  inlet  flow  conditions  in 


27 


28 


■20JX) 


■13.00 


-10.00  -3.00  0. 

BLADB-TO-BLADE  (in) 


3.00 


Figure  9 


Tunnel  Inlet  Survey:  Pref-Ptl/Qref 
Probe  Displacement,  Blade-to-Blade 
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Figure  11a. 


Reference  Blade  Upstream  Survey:  Beta  vs. 
Probe  Displacement,  Span-wise 


SPRr^l  C  H  n  ) 


Figure  11b. 


Reference  Blade  Upstream  Survey:  Vl/Vref 
vs.  Probe  Displacement,  Span-wise 
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Figure  11c.  Reference  Blade  Upstream  Survey:  Pref-Ptl/ 
Qref  vs.  Probe  Displacement,  Span-wise 
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ire  13a.  Reference  Blade  Downstream  Survey:  Beta  vs 
Probe  Displacement,  Blade-to-Blade 


re  13b.  Slotted  Blade  Dov.'nstream  Survey:  Beta  vs. 
Probe  Displacement,  Blade-to-Blade 
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ire  14a.  Reference  Blade  Downstream  Survey:  Pref-Pt2/ 
Qref  vs.  Probe  Displacement,  Blade-to-Blade 
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Figure  14b.  Slotted  Blade  Downstream  Survey:  Pref-Pt2/Qref 
vs.  Probe  Displacement,  Blade-to-Blade 
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BETR 


Figure  16a.  Reference  Blade  Downstream  Survey:  Beta  vs 
Probe  Displacement,  Span-wise,  Suction  Side 


Figure  16b.  Slotted  Blade  Downstream  Survey:  Beta  vs. 

Probe  Displacement,  Span-wise,  Suction  Side 
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Figure  18a. 
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Figure  19a.  Reference  Blade  Downstream  Inlet  Survey:  Beta 
vs.  Probe  Displacement,  Span-wise,  pressure  Side 
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Figure  19b.  Slotted  Blade  Downstream  Survey:  Beta  vs. 

Probe  Displacement,  Span-wise,  Pressure  Side 
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Figure  23.  Pt/Pref  for  Upstream  and  Downstream  Surveys 


the  span-wise  direction  shown  in  Figure  11  were  considered  to 
be  acceptably  uniform  in  the  mid-span  region  of  interest. 

2 .  Two-Dimensionality  and  Periodicity 

Downstream  span-wise  surveys  show  a  much  diminished 
core  of  two-dimensional  flow  on  the  suction  side  of  the  blade 
(Figures  16a  to  18a)  .  This  was  the  result  of  side-wall  and 
corner  flow  boundary  layer  build-up  through  the  test  section. 
The  pressure  side  had  a  greater  core.  However,  the  side-wall 
effects  again  were  evident  (Figures  19a  to  21a) . 

Figures  13a  to  15a  show  good  periodicity  for  the  blade 
passages  enclosing  blades  seven  and  eight.  The  first  and  last 
points  are  in  good  agreement  and  the  spans  match  in  depth, 
width  and  shape.  Similar  periodicity  can  also  be  seen  in 
Figure  12  where  the  values  of  the  coefficient  of  pressure  for 
the  partially  instrumented  blade  are  shewn  plotted  with  the 
coefficients  for  the  fully  instrumented  blade  ten. 

3 .  Downstream  Flow  Field  for  the  Reference  Cascade 

The  reference  blade  downstream  flow  field  is  seen  to 
be  qualitatively  similar  to  that  found  in  Dreon's  [Ref.  3], 
Elazar's  [Ref.  4]  and  Classick's  [Ref.  6]  work.  The  angle, 
pressure  and  velocity  profiles  across  blades  seven  and  eight 
were  very  similar  (Figures  i3a  to  15a)  to  each  other.  The 
velocity  and  pressure  in  the  core  regions  of  the  three 
adjacent  passages  do  not  completely  agree,  as  is  apparent  in 
Figures  14a  and  15a.  This  is  most  likely  attributable  to 
inlet  guide  vane  variations.  The  two  outside  passages  (the 
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endpoints)  do  agree  well  however.  The  span-wise  flow  profile 
shows  the  boundary  layer  effects  on  the  suction  and  pressure 
sides  (Figures  16a  to  21a)  with  the  suction  side  indicating  a 
vanishing  core  as  discussed  in  Section  A. 2.  The  measurements 
of  blade  performance  are  considered  to  be  valid  but  marginal 
due  to  the  diminishing  core. 

4 .  Downstream  Flow  Field  with  Slotted  Blade 

The  measurements  behind  the  slotted  blade  show 
qualitatively  similar  profiles  to  those  behind  the  reference 
blade.  The  slots  had  a  measurable  effect  on  the  total  flow  as 
shown  in  Figures  14b  and  15b.  There  was  a  significant  effect 
on  the  wake  of  the  slotted  blade  wake  but,  surprisingly,  an 
equally  significant  effect  on  the  wake  of  the  adjacent  blade. 
Figures  16b  to  18b  show  that  the  core  effectively  vanished  on 
the  suction  side  of  the  slotted  blade.  The  slots  appeared  to 
have  a  negative  influence  on  the  corner  effects,  which  made 
the  integrated  results  at  midspan  less  certain. 

B.  REFERENCE  AND  SLOTTED  BLADE  PERFORMANCE 

Table  4  lists  the  loss  coefficient,  axial  velocity  density 
ratio  (AVDR)  and  static  pressure  rise  for  the  mass-averaged 
and  mixed-out  flow  cases  for  the  reference  and  slotted  blades. 
The  values  are  also  plotted  on  Figure  22  with  results  of 
previous  measurements  of  the  reference  CD  blading  at  various 
incidence  angles.  The  calculated  mass-averaged  loss  for  the 
reference  blade  with  accurately  referenced  yaw  angle  fits 
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TABLE  4 


REFERENCE  AND  SLOTTED  BLADE  SURVEY  RESULTS 


REFERENCE  BLADE 


MASS 

MIXED 


LOSS 

0.1014 

0.8760 


AVDR  CP  STATIC 

1.016  0.3851 

1.015 


SLOTTED  BLADE 


MASS 

MIXED 


LOSS  AVDR 

0.08969  1.031 

0.9627  1.031 


CP  STATIC 
0.3859 


well  with  the  earlier  work.  The  calculated  mass-averaged  loss 
for  the  slotted  blade  shows  a  noticeable  decrease  compared  to 
that  of  the  reference  blade.  The  loss  reduction  is  clearly 
evident  in  the  decreased  wake  size  seen  in  Figure  23.  Figure 
23  shows  the  distribution  of  losses  through  the  blade  wakes  by 
overlapping  inlet  and  exit  flow  stagnation  pressure 
distributions . 

The  mixed-out  flow  losses  provide  a  conflicting  result. 
The  calculated  values  were  found  to  be  unrealistic  and 
exhibited  completely  opposite  trends  compared  to  mass-averaged 
loss.  The  mass-averaged  calculations  is  such  that  the  supply 
condition  fluctuations  are  removed  by  referencing  to  plenum 
conditions.  As  presently  carried  out  the  mixed-out  flow 
method  does  not  appear  to  be  sensitive  to,  even  minor  tunnel 
changes.  Specifically  the  ensemble  averages  of  X^ef  and  Pj-ef 
during  inlet  and  exit  surveys  are  involved  in  the  calculation 
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of  the  inixed-out  conditions  and  the  losses  derived  from  them. 


Therefore  small  changes  in  the  ensemble  averages  have  a  very 
large  effect  on  the  calculated  losses. 

Hence,  until  a  method  of  referencing  is  devised  which 
leaves  the  mixed  out  loss  independent  of  tunnel  operating 
level,  the  mass-averaged  loss  will  be  accepted  as  a  means  for 
comparing  performance. 

C.  EFFECT  OF  SLOTTED  LEADING  EDGE  ON  FLOW  STRUCTURE 

Visual  observations  of  the  flow  over  the  reference  and 
slotted  blades  using  an  atomized  oil  mist  and  a  LDV  laser  beam 
illumination  inaicated  that  there  was  a  significant  change  in 
the  flow  between  the  two  types  of  blades.  The  pressure  side 
of  the  reference  blade  and  slotted  blade  showed  identical  flow 
patterns  as  would  be  expected  since  the  leading  edge  slots 
were  positioned  such  as  to  have  an  effect  on  the  separation 
bubble  on  the  suction  side.  The  reference  blade  suction  side 
showed  a  pattern  with  some  oil  build  up  on  the  leading  edge, 
a  dry  region  of  about  .25  inches  in  the  region  of  the 
separation  bubble  and  the  another  oil  buildup  region  where  the 
flow  reattached  to  the  blade.  The  oil  deposit  was 

concentrated  in  the  center  of  the  blade  due  to  the  atomizer 
positioning  and  boundary  layer  of  the  tunnel.  This  is 
illustrated  in  Figure  24a. 

The  slotted  blade  suction  side  showed  a  buildup  of  very 
small  bubbles  of  oil  near  the  exits  of  individual  slots  (where 
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the  oil  flow  had  been  channeled  through  the  slots  and 
deposited  in  the  local  separations  created  by  the  jets) .  The 


rest  of  the  blade  remained  dry  as  shown 
appeared  that  the  freestream  flow  with 
reattached  to  the  blade  after  separation, 
to  determine  changes  in  separation  bubble 
of  visualization. 


in  Figure  24b.  It 
oil  droplets  never 
It  was  not  possible 
size  with  this  type 


49 


V.  CONCLUSIONS  AND  RECOMMENDATIONS 


A.  LOSS  CALCULATIONS 

Investigations  were  conducted  at  a  fixed  inlet  flow  angle 
of  48.5  degrees  of  a  reference-controlled  diffusion  compressor 
cascade  and  of  the  same  cascade  containing  one  blade  with  a 
slotted  leading  edge.  The  following  conclusions  were  drawn: 

1.  At  this  high  angle  of  incidence,  there  was  a  vanishing 
core  of  two-dimensional  flow  at  the  downstream 
survey  station. 

2 .  The  blade  element  performance  quantities  derived  from 
the  probe  measurements  were  consistent  with  previous 
results  at  lower  angle  settings. 

3 .  Mass-averaged  loss  calculations  provided  consistent  and 
certain  results,  due  to  removal  of  effects  of  variations 
in  supply  conditions  inherent  in  the  method. 

4.  Mixed-out  loss  calculations,  as  currently  performed, 
are  not  useful  since  the  results  are  sensitive  to  tunnel 
supply  variations. 

The  following  recommendations  for  loss  measurements  are 
made: 

1.  Reformulate  the  mixed-out  flow  loss  calculations  to 
remove  the  ensemble  average  values  from  the 
calculations . 

2.  Make  probe  surveys  closer  to  the  blade  trailing  edge  to 
reduce  the  effects  of  side-wall  boundary  layer  buildup 
on  the  two-dimensional  core  of  the  flow. 

3 .  Automate  the  probe  traverse  process  and  incorporate  the 
use  of  highly  accurate  linear  variable  displacement 
transducers . 

4.  Use  two  probes  for  simultaneous  measurements  at  upstream 
and  downstream  positions  by  incorporating  item  3  and 
using  the  capabilities  of  the  current  software. 
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5.  Conduct  contour  mapping  of  the  downstream  flow  field  to 
better  establish  flow  conditions  and  quality. 

6.  Employ  the  cascade's  boundary  layer  suction  provision  to 
extend  the  two-dimensional  core. 

7 .  Conduct  probe  surveys  in  the  upstream  and  downstream 
positions  over  three  blade  passages  to  better  establish 
blade  wake  effects  and  verify  the  accuracy  of  the 
losses . 


B.  SLOTTED  BLADE 

While  the  results  for  the  slotted  blade  must  be  considered 
to  be  exploratory,  the  following  conclusions  were  drawn: 

1.  The  presence  of  the  slots  reduced  the  losses  from  the 
blade . 

2.  The  flow  over  the  suction  surface  of  the  blade  was 
significantly  changed  by  the  presence  of  the  slots. 

It  is  therefore  recommended  that  more  definitive 
measurements  be  made  to  define  the  effects  on  the  separation 
bubble,  and  evaluate  the  practicality  of  this  form  of  passive 
flow  control. 
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APPENDIX  A 


SLOTTED  BLADE  DEVELOPMENT 


The  arrangement  of  skewed  slots  at  the  leading  edge  of  the 
blade,  shown  in  Figure  4,  was  intended  to  generate  a  series  of 
small  jets,  pumped  by  the  high  pressure  near  the  stagnation 
point  to  the  very  low  pressure  near  the  suction  peak.  This 
attempted  to  adapt  the  ideas  outlined  by  Johnston  [Ref.  11]  to 
reduce  the  size  of  the  leading  edge  separation  bubble  by 
introducing  streamwise  vortices  created  when  the  jets  interact 

«v'I.th  bhe  illuj-ii  flc<t^« 

Introduction  of  the  counter-rotating  streamwise  vortices 
at  the  leading  edge  of  the  blade,  prior  to  the  separation 
bubble,  might  cause  the  flow  on  the  suction  surface  to  remain 
attached  longer  but  would  be  expected  to  create  a  smaller 
separation  bubble  by  forcing  earlier  reattachment.  This  in 
turn  would  decrease  the  losses  across  the  blade,  particularly 
at  high  incidence  where  the  bubble  was  largest.  The 
stagnation  point  was  required  to  be  sufficiently  forward  of 
the  vortex  generator  slots  that  flow  through  the  slots  in  the 
suction  surface  direction  was  ensured  at  all  angles  of 
incidence.  These  restrictions  governed  the  details  of  the 
placement  of  the  vortex  generators  at  the  leading  edge. 

Unifonnity  of  the  generators  for  the  entire  span  was 
required.  The  CD  blading  studied  here  was  a  compressor  stator 
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Gcction  which,  in  practice,  would  allow  slotting  without 
introducing  unacceptable  stress  concentrations.  Since 
slotting  of  the  blades  was  easier  to  implement  with  control  of 
tolerances  and  uniformity,  slotting  was  chosen  rather  than 
attaching  solid  generators  of  any  type.  In  particular  the 
small  size  required  was  more  easily  obtained  by  slotting. 
Notching  of  blades  in  the  production  of  smaller  blades  could 
be  done  using  laser  techniques. 

The  stagnation  point  at  the  leading  edge  was  determined 
using  the  blade  surface  pressure  distributions  obtained  at 
48.52°.  The  vortex  generators  were  placed  so  that  they  were 
normal  to  the  camber  line  of  the  leading  edge.  This  placed 
the  stagnation  point  forward  of  the  generators  and  allowed 
sufficient  space  for  forward  movement  of  the  stagnation  point 
at  lower  incidence  angles. 

Slot  depth  and  width  were  determined  by  the  leading  edge 
radius.  The  leading  edge  radius  was  0.045  inches  which 
allowed  only  a  limited  depth  in  order  not  to  significantly 
alter  the  leading  edge  flow  field.  A  maximum  depth  of  0.010 
inches  was  chosen  for  the  slots.  The  leading  edge  radius  also 
limited  the  slot  length  when  combined  with  the  chosen  depth. 
In  order  for  the  generator  to  form  a  jet,  its  length  had  to  be 
greater  than  its  width.  At  the  slot  angle  of  52°  and  a 
maximum  depth  of  0.010  inches  a  slot  width  of  0.010  provided 
a  length-to-width  ratio  of  approximately  three.  This  was 
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sufficient  to  create  a  defined  jet  and  yet  allow  for 
stagnation  point  movement  at  lower  incidence  angles. 

A  slot  angle  of  45°  was  chosen  initially.  However,  due  to 
machinery  limitations,  an  angle  of  52°  was  used.  Spacing 
between  leading  and  trailing  edges  of  the  slots  was 
arbitrarily  chosen  as  0.020  inches.  This  allowed  67  slot 
pairs  to  be  placed  on  the  leading  edge  of  the  ten  inch  span  of 
the  CD  bladina.  Figure  4  illustrates  the  slotted  leading  edge 
at  a  lOX  scale. 

The  slots  were  made  using  a  0.010  inch-wide  by  2.5  inch- 
diameter  Jewelers  Slotting  Blade  with  90  teeth.  The  shape  of 
the  blade  limited  the  slots  to  rectangular  or  sguare  cuts  with 
the  size  depending  only  on  depth  of  cut  and  chosen  blade 
width.  The  shotting  blade  was  mounted  in  a  milling  machine 
with  digital  precision  position  indicators.  The  milling  head 
size  and  CD  blade  span  limited  the  angle  of  the  leading  edge 
slots  CO  52.2°.  The  slots  were  made  in  one  direction  first, 
then  the  cascade  blade  was  reversed  and  the  second  set  of  cuts 
was  made.  Slot  widths  of  0.010  inches  to  a  tolerance  of  .0005 
inch  was  determined  by  the  blade.  Slot  depth  was  checked 
every  inch  of  span  and  a  tolerance  of  0.001  was  maintained. 
Slot  trailing  edge  spacing  was  also  checked  visually  every 
inch  and  a  tolerance  of  0.005  inches  was  maintained.  The 
angle  tolerance  was  fixed  in  each  direction.  In  view  of  the 
need  to  reverse  the  work  under  the  machining  head  the 
consistency  in  angle  could  only  be  maintained  to  0.4°. 


54 


Figure  A1  shows  the  CD  leading  edge  slots  in  the  midspan 
region.  This  view  is  from  the  suction  (upper)  surface  of  the 
blade.  Figure  A2  shows  the  same  slots  from  the  frontal 
aspect. 
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Figure  A2 .  Slotted  Blade  Leading  Edge,  Frontal  View 
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APPENDIX  B 


SOFTWARE 


B1 .  INTRODUCTION 

The  software  used  for  data  acquisition  and  reduction 
consists  of  three  programs — "ACQUIRE,"  "CALC"  and  "LOSS,"  as 
developed  and  discussed  by  Classick  [Ref.  6].  The  intent  in 
the  present  work  was  to  introduce  necessary  program  changes 
without  changing  the  original  program  flow.  Therefore 
Appendix  C  of  Reference  6  should  still  be  used  for  file 
system,  program  flow  and  program  executions.  "CALC"  and 
"LOSS"  were  modified  to  provide  Reynolds  number  calculations, 
probe  angle  referencing  and  fully-mixed-out  loss  calculation 
and  these  changes  are  discussed  in  the  present  section. 

The  file  system  is  given  in  Section  B2 .  The  modified 
program  flow  for  "LOSS"  is  given  in  Section  B3 .  The  changes 
to  "CALC"  and  "LOSS"  are  discussed  in  Section  B4 .  Copies  of 
the  three  programs  and  associated  subroutines  are  included  in 
Section  B5.  Output  data  tables  of  reduced  data  for  upstream 
and  downstream  surveys  of  both  the  reference  and  slotted  blade 
are  illustrated  in  Section  B6 .  Recommendations  for  software 
improvements  are  given  in  Section  B7 .  Lastly  a  summary  of 
steps  required  for  running  the  three  programs  is  provided  in 
Section  B8 . 
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B2 .  FILE  SYSTEM 


The  current  directory  and  file  system  is  shown  in  Figure 
Bl.  Four  subdirectories  exist  under  the  Root  directory 
"CLASSICK."  The  "DATA"  subdirectory  contains  the  raw  data 
files  created  during  the  data  acquisition.  The  "REDDATA" 
subdirectory  contains  the  scaled  data  files  from  the 
acquisition  and  the  reduced  data  files  from  the  "CALC" 
program.  The  "PROGS"  subdirectory  contains  the  acquisition 
programs,  data  reduction  programs  and  data  plotting  programs. 
The  "ROUTINES"  subdirectory  contains  the  sub-routines  utilized 
by  three  programs  in  the  "PROGS"  subdirectory. 

The  data  file  names  are  descriptive  in  nature.  The 
prefix  (L,  U,  SUP,  SUS,  B)  designates  the  survey  type.  The 
number  followed  by  three  characters  provide  the  date  (26AUG, 
4SEP)  and  the  suffix  (RAW,  SCL,  CALC)  give  the  file  type.  If 
more  than  one  run  was  conducted  on  the  same  day  a  number  is 
added  to  the  suffix  (RAWl,  SCLl)  .  To  designate  the  blade 
surveyed,  a  blade  number  is  embedded  in  the  file  type  (L- 
04MAY7RAW) .  To  designate  the  modified  blade  the  character  "M" 
was  embedded  (L-04MAYMRAW) . 

B3 .  PROGRAM  FLOW 

The  program  flow  for  "ACQUIRE"  and  "CALC"  remain 
unchanged  from  Classick  [Ref.  6].  Figure  B2  shows  the  flow 
for  the  program  "LOSS."  The  figure  shows  the  prompts  the  user 
will  have  on  the  screen  and  the  effect  that  the  selected 
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CLASSICK 


Root  Directory 

Sub  Directory 


DATA 

REDDATA 

PROGS 

ROUTINES 

S-07APR7RAW 

S-07APR7SCL 

ACQUITE 

SUBACQUIRE 

L-04MAY7RAW 

L-04MAY7SCL 

CALC 

SUBCALC 

U-22MAY7RAW 

U-22MAY7SCL 

LOSS 

LOSS CALC 

U-OIJUNRAW 

U-31MAYMRAW 

SUS-25APR7RAW 

SUP-24APR7RAW 

SUS-23MAYMRAW 

SUP-2 4MAYMRAW 

L-29MARTRAW 

B-22MAYMRAW 

U-OIJUNSCL 

U-31MAYMSCL 

SUS-25APR7SCL 

SUP-24APR7SCL 

SUS-23MAYMSCL 

SUP-2 4MAYMSCL 

L-29MARTSCL 

B-22MAYMSCL 

PRBCOEF 
CYBLADEPLOT 
VUREFSPAN 
BETAPOSIT 
PRESS PLOT 

SUBMIXLOSS 

S-07APR7CALC 

L- 04 MAY 7 CALC 

U-22MAY7CALC 

U-OIJUNCALC 

U-31MAYMCALC 

SUS-25APR7CALC 

SUP-24APR7CALC 

SUS-23MAYMCALC 

SUP-24MAYMCALC 

L-29MARTCALC 

B-22MAYMCALL 

MIKEC3 

MIKECE 

Prefix  Suffix 

L  Lower  Traverse  RAW  Raw  Voltage  Reachings 

U  Upper  Traverse  SCL  Engineering  Scaled 

S  Span  Lower  Traverse  CALC  Reduced 

SUP  Span  Upper  Traverse  Pressure 

SUS  Span  Upper  Traverse  Suction 

B  Blade 


Figure  Bl.  Directory  and  File  Listing 


60 


PROGRAM  LOSS 


4/ 


Enter  name  of  the  file  containing  the  calculated  data  from  the  lower 

probe 

I 

Enter  the  high  scan  number  for  the  lower  probe 

Enter  the  name  of  the  file  containing  the  calculated  data  from  the 

upper  probe 

Enter  the  high  scan  number  for  the  upper  probe  file 
Enter  the  limit  of  integration  for  the  lower  probe  survey 

I 

Enter  the  lower  scan  limit 

1 

Enter  the  upper  scan  limit 

Enter  the  limit  of  integration  for  the  upper  probe  survey 

'l 

Enter  lower  scan  limit 

1 

Enter  upper  scan  limit 

i 

Loss  printout  printed  to  the  printer 
END  PROGRAM 


Figure  B2 .  Program  "LOSS"  Flow 


option  has.  The  changes  to  previous  work  were  those  required 
to  provide  an  angle  input  for  referencing  the  probe  pneumatic 
axis,  scan  lengths  to  decrease  file  size  and  execution  time, 
and  integration  intervals  to  provide  for  fully-mixed-out 
losses . 

B4.  PROGRAM  MODIFICATIONS 
1.  Program  "CALC" 

The  "CALC"  program  for  data  reduction  was  modified  to 
include  the  calculation  of  the  Reynolds  number  of  the  flow, 
correct  for  probe  angle  referencing  and  to  provide  required 
parameters  for  fully-mixed-out  loss  calculations  in  the 
program  "LOSS." 

The  Reynolds  number  calculation  required  the  addition 
of  subroutiiies  "Murefensemble"  for  finding  the  average 
coefficient  of  viscosity  discussed  in  Appendix  C,  and  "Datint" 
to  find  the  integral  "lintg"  for  the  value  of  Eqn.  C8 .  These 
changes  are  shown  in  line  2507  and  line  2529  of  Table  B1 
respectively.  Prompts  were  required  to  ask  for  the 
integration  interval  to  be  used  based  on  scan  number.  The 
interval  should  span  three  inches  or  less  to  work  with  the 
"Datint"  integration  subroutine. 

The  probe  angle  referencing  correction  required  a 
prompt  for  the  input  of  angle  Ph  discussed  in  Appendix  F, 
and  the  subsequent  equation  for  calculating  the  angle  P  in  the 
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TABLE  B1 


CALC  PROGRAM  LISTING 


le  IPHOGRftM  CHLLb  I  IMlb  PHUbKIin  lUKtb  Hit  ULtb  Ut  UHIH  LULLkLIbU  tHUfI  IH 

Ze  I  RNO  REDUCES  THE  ORTA  TO  USEFUL  ENGINEERING  OURNTITIES  THESE 

ZS  I  VALUES  ARE  PRINIEO  IN  TABLE  FORM. 

30  (MUCH  OF  THE  CODING  IN  THIS  PROGRAM  HAS  BEEN  PREVIOUSLY  COMMENTED  ON 

35  I  IN  PROGRAM  ACQUIRE. 

40  OPTION  BASE  I 

45  DIM  RaddaK  I  ,  106) 

50 
55 

G0  DIM  P(G.G) 

65  DIM  X(G,G) 

70  DIM  Pu(B.E) 

75 

80  DIM  XuIG.B) 

85  DIM  Xnarayl 100) 

S0 

55  DIM  Prhpoal 100) 

100  DIM  Aarayl  100) 

105  DIM  Barayl 1001 

110  DIM  Carayl 100) 

115  MAT  Redilat-  (0) 

1Z0  MAI  Knai  ay-  (0) 

1Z5  MAI  Prhpofi-  (0) 

130  MAI  Aaray-  (0) 

135  MAI  Uaray-  (0) 

140  MAI  Caray-  (0) 

145  DEG 

IS0  Prnter-701 
155  Scran- I 

100  Flrstbladeprt-4 
IGS 
170 

175  Laslbl Bdeprt-40 
180  G-1.4 

105  Cp-.Z4 

190  LOADSUQ  ALL  FROM  VCLASSICK/ROUIINES/SUBCALC" 

195  MASS  STORAGE  IS  "/CL ASSICK/REDDAIA" 

Z00  PRINT  . . . . . . . . . 

Z05  PRINT 

Z10  PRINT  "ENTER  THE  NAME  OF  THE  FILE  CONTAINING  THE  PROBE  DATA  SCALED" 

ZI5  PRINT  "TO  ENGINEERING  UNITS" 

ZZ0  INPUT  ScIfileS 

Z75  ASSIGN  BPalhl  TO  SclfllcS 

Z30  PRINT  . . . . . . . . 

Z35  PRINT  "" 

Z40  PRINT  "ENTER  THE  PROBE  COEFFICIENT  FILE  FOR  X  VELOCITY.  THIS  WILL  BE 
Z45  PRINT  "" 

Z50  PRINT  "FOR  THE  LOUER  PROBE  IF  TUO  PROBES  ORE  BEING  USED." 

Z55  INPUT  Read.* 

ZB0  ASSIGN  ePathZ  TO  Read** 

Z65  ENTER  fiPathZiXI > ) 

Z70  PRINT  . . . . . . . . . 

Z75  PRINT  "" 

ZB0  PRINT  "ENTER  THE  NOME  OF  THE  COEFFICIENT  FILE  FOR  PHI.  THIS  WILL  BE  " 

Z85  PRINT  "" 

740  PRINT  "tPR  Tiic  I  OUER  PROBE  IF  TUO  PROBES  ARE  BEING  USED." 

Z9S  INI’UT  Readp* 

300  ASSIGN  ePath3  TO  Readp* 

305  ENTER  ePatTi3iP(  .  ) 

310  PRINT  . . . . . 

315  PRINT 

3Z0  PRINT  "IF  DATA  HERE  COLLECTED  WITH  ONE  PROBE.  PRESS  ""  ONE  PROBE . 

3?5  PRINT  "" 

330  PRINT  "IF  DATA  UERE  COLLECTED  UI TH  TUO  PROBES.  PRESS  ""TUO  PROBES . 


ION  ARRAY  FOR  THE  SCALED  DATA  FROM  ACQUIRE. 
I  RECALL  THAT  THE  SCALED  DATA  UAS  STORED  BY 
I A  RANDOM  OUTPUT  STATEMENT. 

I  THE  ARRAY  FOR  THE  PHI  COEFFICIENTS. 

TIME  ARRAY  FOR  THE  X  VELOCITY  COEFFICIENTS. 
I  IF  7  PROBES  USED  THEN  THE  PHI  ARRAY  FOR 

I  THE  UPPER  PROGE. 

IKN  VALUES  STORED  IN  AN  ARRAY. Kn-K  IN  TABLE 

II  OF  ClASSICK  THESIS. 

IAN  ARRAY  OF  VALUES  USED  IN  THE  CALCULATION 
I  OF  BLADE  CP’S. 


TALL  ANGLES  WILL  BE  IN  DEGREES. 


IFIRST  SCANIVOLVE  PORT  ASSIGNED  TO  THE 
I  INSTRUMENTED  Bl  ADE  THAT  IS  OF  INTEREST 
I  IN  HIE  CP  CALCULATION. 

ILASI  . act. 
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335  PRINT 

340  PRINT  . . . . . 

345  ON  KEY  I  LABEL  "ONE  PROBE”  0010  Nunberprbsl 

350  ON  KEY  4  LRBEL  "TWO  PROBES"  6010  NunberprbsZ 

355  Spin! :  GOTO  Splnl 

300  Nunberprbsl:  NooTprhs-l 

305  GOTO  Check nooTprbs 

370  NunberprbsZ:  NooTprbs'Z 

375  ChecIcnooTprbs :  IF  NooTprbs"?  THEN 

380  HRSS  STDROGE  IS  "/CLflSSICK/REDOATn" 

385  PRINT  . . . . . . ■■ 

390  PRINT  "" 

395  PRINT  "ENIER  THE  FILE  NOME  FOR  THE  UPPER  PROBE  COEFFICIENTS  FOR  Xvel." 

400  INPUT  ReodsuS 

405  ASSIGN  PPathZu  TO  Readxut 

410  ENIER  ePalhZuiXuI • I 

415  PRINT  . . ...I. . . . . 

4Z0  PRINT  "" 

4Z5  PRINT  "ENTER  THE  FILE  NAME  FOR  THE  UPPER  PROBE  COEFFICIENTS  FOR  PHI." 

4  30  INPUT  Rcndpiit 

435  ASSIGN  PPnlh3u  TO  Readpu* 

440  ENIER  §Pnlh3uiPu< • ) 

445  PRINT  . . . . . . . 

450  PRINT  "" 

455  PRINT  "ENIER  THE  FILENAME  FOR  THE  DATA  TO  BE  CALCULATED  FROM  LOUER  PROBE  " 
400  INPUT  CalclTlIe* 

405  CREATE  BOAT  Cal  cl f 11 e» , 100 
470  ASSIGN  ePath4  TO  Calclflle* 

475  PRINT  . . . . ..." 

480  PRINT  "" 

405  PRINT  "ENIER  THE  FILENAME  FOR  THE  DATA  TO  BE  CALCULATED  FROM  UPPER  PROBE" 

490  INPUT  C  l/  :uT  tlet 

495  CREATE  BOAT  Calcuf 11 e* . 1 00 


500 

ASSIGN  PPatTiS 

TO  CalcuflleS 

510 

I  • 

NOTE 

THE  SCANIVALVE  SENSES  THE  PRESSURE  DIFFERENTIAL  FROM 

515 

1  • 

AIMOS.  THE  SCANIVALVE  IS  CALIBRATED  SO  ATMOS  PRESS(Pa) 

5Z0 

1  • 

READS  ZERO.  THE  PRESS  SENSED  AT 

A  PORT  IS 

THE  PORI 

5Z5 

1  • 

PRESS  MINUS  Pa  l.e 

..GAGE  PRESS. 

TO  ELIMINATE  ERRORS  DUE 

530 

1  • 

TO  DVM  DRIFT.  THE 

PRESS  SENSED 

BY  PORI  1 

OF  THE 

535 

1  « 

SCANIVALVE  (Plate- 

Pa-Pa)  IS  subtracted  FROM  EACH 

540 

I  • 

SCANIVALVE  PORI  READING. 

545 

(  • 

&B0 

I* 

505 

1  • 

570 

1  • 

VARIABLE 

VARIADLE 

PORF/CHANNEl 

DATA  ARRAY 

575 

1  • 

REPRESENTS 

580 

\  • 

585 

!• 

rtnre 

Pa-Pa 

PORT  1 

Rrddatl 1 

,  I  ) 

590 

1  • 

PcBl 

Peal -Ftara 

PORI  Z 

ReddnU  1 

,Z  ) 

595 

I  • 

Pp 

Ppl enun-Ptare 

PORT  3 

RetldaH  I 

.31 

000 

1  • 

r« 

Pual letallc-Ptare 

PORI  4 

Redrtotl 1 

.“I 

005 

1  ■ 

PI 

P 1 -Pt  are 

PORT  5 

ReddaK  1 

.5) 

010 

1  • 

PZ 

PZ-Plnre 

PORI  6 

ReddaK  I 

.G) 

015 

1  • 

P3 

P3-Ptore 

PORI  7 

ReddaK  1 

.7) 

6Z0 

1  » 

rz3 

(PZTP3)/Z 

GZ5 

t  • 

FI 

P4-P»aro 

PORT  8 

ReddaK  1 

.B) 

030 

!  • 

P5 

P5-Ptare 

PORT  9 

RaddnK  1 

.9) 

G35 

1  • 

P«P 

Ptotalprndll-Ptaro 

PORI  10 

Radriatl 1 

.  10) 

040 

?  • 

PfSp 

Pstntprndt  1  *Pta»  a 

PORI  n 

ReddaK  I 

.11) 

045 

1  * 

BLANK 

PORI  IZ 

ReddaK  1 

.  IZ) 

(  • 

PItJ 

Plii-Plare 

PORI  13 

Reddatf 1 

.13) 
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.  4.-a 

1  4.U  .  W 

•  wt<  •  •  -» 

i  4VI  UOt*  ft  «  1  •  1  « 

- 

BB0 

1  • 

P3u 

P3u-Ptare 

PORI  15 

Reddatl  1 . 15) 

• 

BBS 

1  • 

PZ3u 

IP2u»P3u)/Z 

• 

G70 

)  • 

P4u 

P4u-Ptare 

PORT  IG 

Reddail  1 .  IG) 

t 

B75 

!• 

P5u 

PSu-Ptare 

PORI  17 

Reddatl 1,17) 

• 

GO0 

1  • 

B1  RNX 

PORf  IB 

Reddatl  1 . 181 

• 

685 

1  * 

BLRNK 

PORT  19 

Reddatl  1,13) 

• 

G90 

I* 

Posit 

L  PRB  POSIT 

INTUr 

Reddatl 1,20) 

• 

G95 

I  • 

Ponltu 

U  PRO  POSIT 

INPUT 

Reddatl  1.21) 

t 

700 

!• 

Ynu 

LOWER  PRB  YOU 

24 

Reddatl  1,22) 

• 

79>5 

!• 

Yauu 

UPPER  PRB  YOU 

21 

Reddatl  1.23) 

• 

710 

t  « 

Tewp 

TOTRL  TEMPIPLENUM) 

CHRN  10 

Reddatl 1.24) 

• 

715 

1  • 

Pa 

flIMOSPHERIC  PRESS 

INPUT 

Reddatl  1.25) 

• 

720 

!• 

t 

725 

1  • 

• 

7'10 

DIM 

C«lcl< 100,25) 

745 

Cal  rl  <  0 ) 

750 

Plnlllal 1-0 

IINITIRI  12ES 

THE  CONDITIONS  TO 

cnLCUin? 

755 

•ENSEMBLE  VALUES  IN  SUBROUTINE 

ENSEMBLE 

7G!>  Tlnltlnl-O 
7GS  rj j  1 1  nl  1  -C^ 

7  70  ron  N'l  TO  100 

775  ENTER  PPnlhl  .NiReddaK  •  )  MTIE  ROnOY  IS  ENTERED  UITIT  R  RRNDOTI 

7B0  ISIRTEMENT. 

785  ON  END  PPalhl  GOTO  TuoprTntcal cl 

790  PEore-ReddatT I . I )  I RERSSIGNMENT  OF  RRRRY  ELEMENTS  TO 

785  IIOENTIFIROLE  QURNTITIES  TO  BE  USED  IN 

B0®  UN  SUBROUTINE  CRLCULRTIONS. 

805  Pen! "PaddatT I ,Z t 
810  Pp-Rri;dnt(  1 . 3) 

815  Ps’-Reddnl  (  I  ,  4  ) 

870  PI’ReddatT I ,5) 

825  P2-RBri()nt(  I  .6) 

830  P3*Reddnt(  I  ,7) 

835  P23’(P7*r3)/2 

840  PB-ReddntT  I .81 
845  PS’ReddnK  I  ,9) 

850  P  Ip-Rndrlrtt  T  I  ,  10) 

055  Psp^ReddnlT I , I  I ) 

860  lEllflNK'RnddaK  1  .  IZ  ) 

865  Pos  H'Rnridat  (  I  ,  Z0) 

870  Yaij-ReddaU  1  ,ZZ )  TYRO  RNGLE  CORRECTION  COULD  BE  MODE 

075  1UERE  IF  NOT  RLRERDY  DONE  IN  RCOUIRE. 

800  Tenp'ReddntT  I , 24 ) 

805  Pa’RedriaU  1 .25) 

890  URLCUI  RTE  BETR  RND  GnMHR  COEFFiriENIS 
835  CR1.L  BgcalcTPa. PI  .PZ3.P4. PS. Brin. Gonna) 

300  ICRLCULRTE  THE  ENSEMBLE  REFERENCE  VRLUE5  OF  PLENUM  PRESS .PLENUM  TEMP  RND  PR 
905  CRLL  EnnenbleTPp.Plnlilal.Pa.Painltlol. Tenp. T Initial .Ppavg.Paavg. Tenpavg .N ) 
310  ICRLCULRTE  Xvel  RND  Plil 

915  COLL  Xphl cnl c( Beta. Ganna. Xvel .X( •) ,Phl .P( •>  ) 

920  ICOLCULOTE  Xref 

925  CRLl  XreT cal c< Po .Pp , G , Xref ) 

930  ICniCUI.RTE  OREF  RND  VREF 

935  CRLl  QvreT cni  r(  Xref  .Cp .  Tenp  .G.Pp .Pa. Oral  .Vref  ) 

940  ICRLCULRIE  VELOCITY  RND  MRCH  «  RND  0 

945  CRLL  Vnrical  cl  Xvel  .  Cp.  Tenp  ,  G.  Vel  .Moch.P  I  .Po.D ) 

950  I  CRLCUl  niE  THE  INIEGRRNO  FOR  THE  RVDR  EXPRESSION 
955  CRLl  Xncol cl  Pa ,P I  .Pp .  Xvel  , Xref  .G .  Yair.Xn) 

960  ICRLCULRIE  THE  COEFFICIENT  OF  PRESSURE  TERM  TO  BE  MOSS  OVERRCED. 

965  lIMFSE  TERMS  ORE  USED  IN  THE  CRLCUIRTION  OF  THE  LOSS  COEFFICIENI. 

9  70  CRLL  CoeT prenol P I  ,Pp .Pa . Xvel  .G.Cps  .Cpt ) 

975  lent  nn  Air  thf  nilAMTTTTEc  rn  nr  macc  Aurnnern  mki  ttdi  v  ruccr  tminrc 
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980  IBY  Kn  TO  GET  THE  INTEGBAHO  nFOllintO  TO  COLCULRIE  THE  MOSS  nVEROGED  CP'S 
905  COLL  Cplritegrnnd(Pp,PI  .Pa.G.Xvel  .A.B.Kn) 

990  I  CnLCULATE  Pp-PI/Qref  FOR  PLOTS 

995  CRLL  PrafqrefiPp.PI .Oref .Pq> 

1000  I  CnLCULRTE  STATIC  PRESSURE  UPSIREAM 
1005  CALL  Slal  Icproasl  P I  .Pb, Xvel  .G.P*! ) 

1010  IDEFINE  AN  ARRAY  TO  STORE  CALCULAIEO  VALUES 
1015  CalcKN.  I  )"Po«lt 
I0Z0  CbIcMN.Z  )-Beta 
I0ZS  CalcKN.ai’Ganna 
1030  Calcl(N.4  )-Phl 
1035  Calcl(N.5)-Xvel 
1040  CalcKN.Gl-Xref 
1045  CalcUN.7)-Vel 
1050  CalcllN.ei-Mach 
1055  CalrI<N.9)-Yau 
1000  CalclIN.  10)-Kn 
1005  CalcKN.  1  1  1-Cpt 
1070  Cal  cl  (  N. 1 2 I'Cpa 
1075  CalcKN.  13)-0ref 
1000  CalcKN.  I4)-Vref 
1085  CalcKN. ISl'O 
1090  CalcKN. lOKA 
1095  CalcKN. I7)-G 
1100  CalcKN.  IBl-rq 
1105  CalcKN.  I9)-Pa 
1  I  10 

1115  CalcKN, Z0)-Ps 

11Z0  XnaraylNI-CalcKN,  10)  lUANl  TO  STORE  MORE  IllAH  JUST  ONE 

IKS  IXn  vmUE  FOR  MASS  AVERAGING 

1130  'CALCULATIONS. 

1135  rrhpc;i( 'l)-CalcKN,  1)  I . 

1140  AaraylNl-CalcKN.  IB)  I . 

1145  BaraylNl-CalcKN.  17)  I . 

I  1 50  Scnn'N 
1155  NEXT  N 

1100  Tuopc 1 nl cal c I :  OFF  END  SPnthI 

1105  ICALCULAIE  ENSFlIRl  E  AVERAGE  OF  XRFF 

1170  CALL  Xref ensanbl e( Paavg .Ppavg.G, Xccf avg) 

1175  ICAICULAIE  ENSEMBLE  AVERAGE  OF  VRFF 

1180  CALL  VreTensanbl e< XreFavg , Cp. Tenpavg. Vref avg ) 

1185  ICALCULAIE  ENSEMBLE  AVERAGE  OF  QREF 

1190  CALL  Oref ensenbl e( Paavg.Ppavg ,G. Xref avg ,Oi  ef Bvg ) 

1195  PRINT  . . . . . . . 

IZ00  PRINT 

1205  PRINT  "ALIGN  PAPER  IN  PRINTER.  WHEN  READY  FOR  A  HARDCOPY  OF  THE  " 

1210  PRINT  "CALCULATEO  DATA,  PRESS  ""REDUCED  DAI  A"" . " 

1215  PRINT  "" 

1220  PRINT  " . . . . . . . . . 

1225  ON  KEY  1  LABEL  "REDUCED  OAIA"  GOTO  PmtdaTaZ 

1230  SplnZ:  GOTO  SplnZ 

1235  PrnldalaZ:  PRINTER  IS  Prnler 

1240  PRINT  . IP.. . . 

1245  PRINT  "FILE  " .Cal cl f 1 1 ef 

1250  PRINT  . ppppppp . . 

1255  PRINT  . . . . . . . . . . . 

1200  PRINT 

1265  PRINT  "SCAN  L  PRB  BETA  GAMMA  PHI  Xval 

1270  PRINT  "  POSIT" 

1275  FOR  N'l  TO  Scan 

1280  PRINT  USING  "4D, 3X . 40. 2D. 3X . MO. 3DC . 3X .MD. 3UE . 3X .MO. 3DE . 2X . MD. 3DE . 2X ,MD. 3DE 
1285  NEXT  N 
1290  PRINT  "" 

1795  POINT . . . . . . . . . 


IPa  S  Ps  ARE  USED  FOR  STATIC  PRESS 
I  RISE  CALCULATION  IN  PROGRAM  LOSS. 
IIMESE  VALUES  ARE  NOT  PRINTED. 
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1300 
1305 
1310 
1315 
1  320 
13Z5 
1330 
1335 
1340 
1345 
1350 
1355 
13G0 
13B5 
1370 
1375 
13B0 
13B5 
1  390 
I  395 
1400 
1405 
1410 
1415 
14?0 
I4Z5 
1430 
1435 
1440 
1445 
1450 
1455 
14G0 
MGS 
1470 
1475 
1480 
1485 
1490 
1495 
1500 
1505 
1510 
1515 
1570 
15Z5 
1530 
1535 
1540 
1545 
1550 
1555 
15G0 
15G5 
1570 
1575 
15B0 
1585 
1590 
1595 
1600 
1G05 
1G10 
1615 


PRINI  ■■■• 

rniNi  "ScnN  vel  vhef  o  oref  mrch 

pniNi  •• 

FOR  N’1  10  Scan 

PRINT  USING  ’MD.SX.llD.SDE.SX.HD.  30E.3X.M0.3D£.3X.ND.3DE.ZX.nU.3DE.ZX.MD.3D 

NEXT  N 

PRINT 

PRINT  . . . I.... .....•..•••••...t.. «••#•••. .•••...••••...t...,. 

PRINT 

PRINT  •• . . . . . . 

PRINI 

PRINT  "SCnN  Prel-Ptl/Oref" 

FOR  N’ 1  TO  Scan 

PRINT  USING  "40. 3X,MD. 30E"iN.CaIc<N. 18) 

NEXT  N 
PRINT 

PRINT  . . . . . . . . . . 

PRINT 

PRINT  ■ENSEMBLE  RVEROGES" 

PRINT 

PRINT  PPOVG  PROVG  lEMPOVG  XREFRVG  VREPfiVG 

PRINT  USING  "MD.  30E  .5X.M3D.ZCE.5X,3D.  ZO.BX.MT).  3DE  ,5X.MD.  3DE  .3X.riD.  3Dr-|Ppa 
OUIT’UT  f'rnth4iCalcl(  •  )  10UIPUI  SIRTEMENI  IS  SERIOL. 

DIM  CalcuT  I00.Z5)  ISEPORRIE  COLC  ORROY  FOR  REUUCFD 

IDOIO  FROM  UPPER  SURVEY  STfiTION. 

MOT  Calcu-  (01 
FOR  N-I  TO  100 

ENTER  (BT'aHil.NiReddaU  •)  lENIER  SIRTEMENI  IS  RRNDOII. 

ON  END  fPathl  GOTO  Tuopr Intcal rZ 
PlnccRrdrlaK  1,1) 

Pp-R'ddnl(  1.3) 

Ps-I'C  fJatl  1  .4  ) 

P(p'RedHnt( I . 10) 

Psp-Reddat ( 1,11) 

PIU”Reddat< 1.13) 

PZu-ReddaK  1,14) 

P3ii’n«drial(  1  .  IS) 

PZii3u’<PZutP3u)/Z 
P4it'Reddnt(  1,16) 

P5ii-RrHdaM  1,17) 

IBLONK-REDDOK  1,18) 

I BL  FINK 'RE  DORK  1,13) 

Posllu'RffddaK  1  ,ZI  ) 

Ya'iu-Radda!  (  1  ,Z3) 

Trap'Raddat ( 1 ,Z4) 

Pa'RedriaK  I  .Z5) 

ICRLCULOTE  PETR  RNT)  GOMMO  COEFFICIENTS 

COLL  Rgc,alc(  Pa  ,P  I  u  ,  PZu3u  ,P4u  .P5u  .Be  tau  .Gannau  ) 

ICRLCULRTE  Xvelil  011(1  Phlu 

COLL  XphlcolcIBaFau .Gaanau ,Xvelu,Xu( • 1 ,Phlu,Pu( *  ) ) 

ICOLCULOTE  Xrefu 

COLl  Xrefcalc(Pn.Pp,G, Xrefu) 

ICOLCULOTE  ORFF  RNO  VRFF 

COLL  Qvref  cal cT  XreT  ,Cp  ,  I enp  .G .Pp  .Pa, Orel  .VreT  ) 

ICOl.CULOTE  VELOClTYu  AND  MOCIIu  »  ONU  Ou 

COLL  VnpcalcT  Xvelu,Cp,Tenp,G,VeIu ,MacUu ,P 1 u ,Pa , Ou ) 

I  COLCULOTE  THE  INIEGRONO  FOR  TTIE  OVOR  EXPRESSION 
COLL  Knrnlc(Pn,Plu,Pp,XveIu.Xrefu,G, Ynuu ,Knu ) 

I  COLCULOTE  THE  COEEEICIENT  OF  PRESSURE  FOR  THE  UPPER  PROBE  . 

1  THIS  TERM  WILL  BE  MOSS  OVEROGEO  ONO  USED  IN  THE  COLCULOIION  OF  THE 
1  LOSS  COEFFICIENT.  THE  Cp«u  TERM  15  NOT  USED  IN  THE  LOSS  COEFFICIENT 
I  COLCULOIION. 

COLL  CoefpresalPltj.T’p.Pa.Xvelu.G.Cpeu.Cplu) 

1  rOLCUIOIE  Pn-PI/O.-ef  FOR  PLOTS 
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lEZV) 
tBZ5 
IG30 
IB35 
IB-IB 
IBIS 
IB50 
IB55 
IGB0 
IGB5 
IB/0 
IB/5 
IBB0 
IB85 
IG90 
IB95 
1700 
1705 
1710 
1715 
1720 
1725 
17  30 
1735 
1730 
1735 
1750 
1755 
I  7G0 
I7G5 
1770 
1775 
1780 
1785 
1790 
1795 
1800 
1805 
1810 
1815 
1820 
1825 
1830 
1835 
1830 
1835 
1850 
1855 
I8B0 
I0G5 
1870 
1875 
1880 
1885 


CntL  Prrfqt-ef  (Pp.n  .Qref  .Pnu) 

I  CnLCULOIE  THE  DOUNSTREflM  STATIC  PnESSUHE 
CALL  Slatl cprasal Plu,Pa,Xvelii,6,Pau> 

Cal cul N , I  I'Pos 1 tu 
Cal  cul  N .  2  (’■Balau 
Cal cul  N , 3 )"6aanau 
Cal  cul  N .  3  )■■Ph^u 
Cal cul N . 5 1'Xve  1  u 
CalculN.GI'^Xrafu 
CalculN.71=yelu 
Cal  cul  N ,  8  )"l1acliu 
Cal  cul  N ,  9  )  "Yatju 
Cal  cul  N  ,  l0)“Xfiu 
Cal  cul  N  .  1  I  )-Cplu 
Cal  cul  N,  12  )"CpBu 
CalculN.  13)-0u 
Cal  cul  N,  Ml-Pqu 
Cal  cul  N.  19  )-Pa 
CalculN. 201-f’su 


ICnlculN.15)  TO  CalculN, 18)  WILL  HAVE 
izEAOS.  nnnAY  element  assigniifnt  is 

I  CONSISTENT  WITH  LOSS  PROGRAM  AND 
TONE  PRnoc  ciinucy. 


orr  END  PPathl 


Scan’N 
NEXT  N 

Tuapr- 1  nt  cal  c2  : 

PRINT  . . . . . . . . . . . . . 

PRINT 

PRINT  . . . . 

PRINT  "FILE  ".Calcuflle* 

PRINT  . . . . 

PRINT  " . .  t.t  . . . . 

PRINT  ■■■' 

PRINT  S!  AN  U  PRB  BETAU  r70MMAD  PMIU  Xvelu  " 

PRINT  ••  POSH" 

FOR  N-l  TO  Scan 

PRINT  USING  ••30.ZX.4D.20.3X.M0.3E)E,3X.M0.  3DE.3X,MD.3DE  .3X.MD.3DE"iN,Calcul 
NEXT  N 

PRINT  . . . 

PRINT 

PRINT  "SCAN  VELU  QU  Pref -Ptu/Orel  MACIIU  YAUU" 

PRINT  ■■  DEG" 

FOR  N”!  TO  Scan 

PRINT  USING  "30.3X.MD.30E.3X.MD.3DE.3X.MD.3DE.3X.MD.30E.3X,MD.3DE'|N.Calcu 
NEXT  N 

PRINT  . . . . . . . . . 

PRINTER  IS  Scran 
OUTPUT  PPathSiCalcul  • ) 

ELSE 

MASS  STORAGE  IS  ••/CLASSICK/REUIiAin- 

print  ".... . . . . . . 

PRINT 

PRINT  "ENTER  THE  FILENAME  FOR  THE  DATA  TO  BE  CALCULATED  FROM  THE  PROBE  " 
INPUT  Calcflle* 

CREAIE  BUAT  Cal cf 1 1  at , 1 00 
ASSIGN  Pl'ath3  TO  CalcTlIe* 


183^ 

1  *  * 

1905 

I* 

• 

1910 

1  • 

• 

1915 

1  • 

VARIAOLE 

VARIABLE 

POTII/CHANHFL 

DATA  ARRAY 

• 

1920 

1  • 

REPRESENTS 

• 

1925 

1  • 

« 

1930 

f  • 

P  t  nr  f? 

Pa-Pa 

PORI  1 

Reriiiatl  1.1) 

• 

(93S 

1  • 

Pcnl 

Peal -Ptare 

PORT  2 

Reddat<  1 .Z ) 

• 
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I  GIB 
IG45 
1950 
1955 
I9G0 
I9G5 
1970 
1975 
I9B0 
19B5 
1990 
1995 
7000 
Z005 
Z0I0 
Z0IS 
Z0Z0 
Z0Z5 
Z030 
Z03S 
7030 
7035 
7050 
Z055 
70G0 
Z0G5 
7070 

707  1  IMTIIT  ■■ 

Z075  FOn  N-l 
7000 
7095 
Z090 
7095 
7  100 

7105  Pcol -n^ddfiK  I  ,Z  ) 

Z  I  10  Pn«nffdrlflt(  1.3) 

7115  Ps'ReddfiM  I  ,4  ) 

Z170  Pl'lleddntt  I  ,5) 

Z  175  PZ'llcddjiM  1,6) 

7130  P3*nBddnU  1  .7) 

7135  P73’(P7<P3)/Z 

7  140  P4’nrdrl-Tt<  1  .8) 

7  145  P5-nBdd.Tl(  1  .9  ) 

7150  Ptp'nrddall 1 . 10) 

7  155  P»p-ReddPt(  I  . 1  1  ) 

Z1G0  IBLflNK^nBddall  1  .  17) 

7  1G5  IBLnNK'PrridaK  1,13) 

7  170  IBLFINK'neddaK  1  .  14  ) 

7  175  PosH-Padrint  (  1.15) 

7180  Betnf 'P-ddnll  1 , 16) 

7  1B5  Trnp'llBddnK  1.17) 

7190  Pn’Rrddat ( 1.18) 

719)  Ynij''40.45MBetaf-Botn1') 


PORT 

3 

nprfdat< 1 

.3) 

PORT 

4 

Redrint<  1 

PORT 

5 

Rpcidat  t  1 

S) 

PORI 

6 

Pprfdnt (  1 

.EJ 

PORT 

7 

Rsddat(  t 

.7) 

PORI 

8 

Reddnt<  1 

.8) 

PORI 

9 

RpddnK  1 

.9> 

PORT 

10 

Reddnt( 1 

PORI 

1  1 

ReddHt(  1 

,11) 

PORT 

17 

Rcddnt(  1 

e  IZ) 

PORT 

13 

ReddatT  1 

,  13) 

PORI 

14 

Reddat(  1 

.  14) 

ir^UT 

RoddatC I 

.15) 

cnnri 

74 

Reddat (  1 

.  1B> 

Cfinfi 

10 

Rrddat ( ! 

.  17) 

INPUT 

ReddatT  1 

.  Ifl) 

Pp  Ppl enun- PI OfC 

Ps  PuBl 1 Btot Ic-Ptore 

PI  Pl-Plare 

PZ  PZ  Plane 

P3  P3  Plane 

rZ3  (P71P3)/Z 

r4  P4-Plane 

P5  PG-Plane 

Pip  Plol al pnndl I -P 1 nne 

Pap  Pslalpnndl 1 -Plane 

BLPNK 
Bl  flNK 


BLONK 

Poa 1 1  PRB  P09I r 

Yaij  PRB  YOU 

Temp  fOrnL  TEMPI  PLENUM) 

Pa  flmOSPlIERIC  PRESS 


I . . . .  REOUCTIOM***  . . . . 

DIM  Cnlrl 100.75) 

Mfll  Cain-  10) 

Plnlllal’'0  )lNIimi7E5  CONDIIlOtlS  FOR  FNSEMDLF 

ICRLCULni IONS  IN  SUBROUIINE  ENSEMBLE. 

T 1  n  1 1 1  a  1  '  0 
Palnll  lal  -0 

INI'UI  VERNIER  RERDING  yilEN  PROBE  BOR  IS  HORI ZONIRL"  .Betah 
10  100 

ENIER  PPe*h1  .NtReddaK  •  )  inRRRY  ENIEREO  ORNOUMLY 

ON  ENO  f"  .till  6010  Pnlntcnlcl 

Plane-Redriall  1  . 1  )  i RERSSIGNMENr  OF  RRIinv  ELEMENTS  TO 

no  lOFNiiFinoLE  oummnES  used  in 
I SUBROUIINE  CRLCULRIIONS. 


7  195  ICnLCULRIE  PEIfl  RND  GOUMn  CREFFiriENIS 
7700  con  BncnlnlPa.ri  ,r73,r4.P5.neln.Gnnn,T) 

7705  ICniCULflTF  THE  ENSEMBLE  REFERENCE  vniUES  OF  PPLENUM, PLENUM  TEMP  RNIT  PR. 
77)0  CRLL  EnaenGlelPp.Plnlllal.Pa.Palnlllal, Tenp, T ini  1 1 al .Ppavg .Paavg , T enpavg . N ) 
77)5  ICRLCULRTE  Xvel  RNO  Plil 

7770  CRLI  Xplilcal  c(  Bela, Ganna. Xvel  ,  Ml  •)  .Pill  .Pt  •  1) 

7775  ICRLCULRIE  Xnef 

77  30  CRLL  XneTcnlclPa.Pp.G.Xnef  ) 

7735  ICRLCULRIF  Tmtialal 

7740  CRLL  Irnpalatcal cl Xvel . Trnp, lenpnlal  ) 

77en.  I  f  ni  niM  ore  nnc  c  onin  irijrr 
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ZZ50  CnLL  Qvref cnl c( Xref . Cp . Tenp ,R.Pp .Pn.Oret , Vref ) 

ZZ55  ICni-CULniE  VELOCITY  OND  MOCH  «  ONU  0 

ZZ60  COLL  Vnqcalcl Xvol ,Cp, Tenp.G.Vel .Mnch.PI .Po.Q) 

ZZ65  I  COLCULOIE  THE  INIEGOONO  FOO  THE  OVOIT  EXPRESSION 
ZZ70  COLL  KncolcI  Po.PI  .Pp.Xvel  .Xref  .G.  You.Kti) 

ZZ75  I  COLCULOIE  THE  COEFFICIENT  OF  POESSOOE  TEOHS  TO  BE  MOSS  OVEnOGED. 

ZZB0  I  THESE  TERMS  ORE  USED  IN  THE  COLCULOIION  OF  THE  LOSS  COEFFICIENI. 

ZZB5  COLL  CoefpressIPl .Pp.Pa.Xvel .G.Cps.Cpt) 

ZZ30  ICOLCULOIE  THE  OUONIIIIES  TO  BF  MOSS  OVEROGFO.  MULTIPLY  THESE  VOIUES 
ZZ35  IBY  Kn  TO  GET  THE  INTEGRONO  REOUIRFO  TO  COLCULOIE  THE  MOSS  OVEROOED  CP'S 
Z30a  COLL  Cpt nlegrandl Pp,P I  ,Pa .G ,  Xvel  , O.B.Xii) 

Z305  ICOLCLULOIE  Pp-PI/Oref  FOR  PLOTS 
Z3I0  COLL  Praf qref (Pp.P I .Qref .Pq> 

Z3I5  I  COLCULOIE  SIOIIC  PRESSURE 
Z3Z0  coll  STatlcpressIPI  .Pe.Xvel.G.Pji) 

Z3Z5  ICOLCULOIE  VIcroSITY 

Z330  COLl  V 1 ocyoul  lenp , I eapa lal ,U ) 

Z335  irOLCULOIE  INTEGRONO  FOR  REYNOLDS  NO 
Z3X0  COLL  Re  1  nt  aqi-andl  Kn  .U  ,  Yau  ,  I  rr  ) 

Z3X5  IDEFINE  ON  ORROY  TO  STORE  COLCULOTED  VOLUES 

Z350  Cal  c(  N,  I  )-T'or1  t 

Z3S5  Colc(N.Z)-Belo 

Z3G0  Cal  c<  N.  3!-Ganeia 

Z:G5  Calc(N,4)  I'tif 

Z370  CelcIN.Sl'Xvrl 

Z375  Cnlo(N.G)-Xr  of 

Z3O0  Cnlc(N.7)’Vel 

Z3C5  CnlcIN.BT'MnrUi 

Z3S0  Cal  N.9  )-Yau 

Z3S5  Calc!  N,  l0)'Kii 

7X00  CalcIN,  I  I 

ZXrS  CalcIN,  I  Z)-tpj 

Z1I0  Calcl N. I 3)'Qref 

>XI5  Cal  c' N,  M  I’Vref 

ZX70  CalcIN, 151-0 

ZXZ5  CalcIN, IGI'O 

ZX30  Toicl  N,  I7)’[) 

ZX35  CalcIN,  IBI-f’q 
ZXX0  CalcIN,  IS  )-l  a 
ZXX5  CnlclN,70)-P5 
ZX50  Cal  cl  N  ,  Z  '  )-'J 
Z155  CalcIN, ZZT'Ifo 
ZXCB  Calcl N,Z3l-rp 
ZX57  Calcl  N,  7i  )-!■  I 

ZIGO  KnaraylNI-CalcIN,  10)  lUONT  TO  STORE  THE  Kn  VOLUE  IN  ON 

ZX55  iOR'’Oy  FOR  MOSS  OVEROGING  COLCULOMONS 

7X70  P(  hpoel  N  ) -Cal  cl  N,  I  )  I . 

ZX75  Oar  ayl  N)-Cnl  cl  N  ,  IG  )  I . 

ZXB0  Bar  ayl  N)-Cal  cl  N,  17  )  I . 

ZX85  Car  ayl  Nl-Cal  cl  N.  ZZ  ) 

7X90  Scan-N 
ZX9I  NEXT  N 

ZXSG  Pr  Irrtral  cl  :  0' F  ENDPI’alhl 

ZXSB  ICniCUlOlf  ENSFMRIE  OVFROGE  OF  XRf  E 

ZX9S  COLl  Xc  0  f  enaentil  el  Paavg  ,Ppavq  ,G  ,  XceFavg  ) 

Z500  ICOICULOIF  FNSFMHLF  OVFROGE  of  VREF 
Z  50  1  COLL  Vr  e  f  eneenljl  e I  Xr  e F  avg  .  Cp ,  Fenpavg .  Vrcf  avQ ) 

Z50Z  ICOLCUIOIF  FNSfMOlF  OVROOF  Of  ORI F 
Z503  COLL  Oc el  ensenhl  el  Paavg  ,rpavo  , G ,  Xr  ef  avg  , Of  ef  avg I 
ICOLCUIOIF  IMF  ENSFMOLFOVF  OF  SIOIIC  TEMP 
Z505  C’li  L  T  rape  L  a  I  enaenTjl  I  I  enpavQ ,  Xref  avg ,  leapa  t  at  avg  I 
Z50G  ICOICULOIF  IMF  FNSFMI'LF  07F  OF  VISCOSIIY 
Z507  COIL  Mtir  e  f  enaenOl  el  I  enps  I  a  I  avg  ,Mur  el  ) 

7500  Calc'  I  .ZSI-l'pavq 
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Z509 

2510 

2512 

2513 

2514 

2515 
Z5IG 

2517 

2518 

2519 
7520 
252  1 
2522 
2  52  3 

2524 

2525 
752R 

2527 

2528 

2529 

2530 

2531 

7532 

7533 

2534 

2535 
253B 

2537 

2538 

2539 

2540 

2541 

2542 

2543 

2544 

2545 
754G 
2  54  ; 
2518 
7  54  9 

2550 

2551 

2552 

2553 
2  554 
2  5^5 
2555 
2  55  7 
2  558 
7  559 
7  550 
7  551 
75F.7 
7  55  3 
7  554 
7  555 

7555 

7  55  7 
7'  59 
7  559 
7  5  70 
75’* 

75  73 


Colc(2.25>'-ra«vg 
Colr.(  3.Z5)’*Xrf?f«svg 

rniNF  . . . . . . . 

rniNT 

PRINT  -rNTFR  THE  LIMITS  OF  INIEPITmiON  l.e..  THE  LOWEST  TO  THE  " 

PRINT  "HIGHEST  SCHN  NUMBER  DESIRED  FOR  REYNOLDS  CnLCULflTlON.  *' 

PRINT 

PRINT  . . * . . . . . . 

PRINT  "■ 

PRINT  . . . . . . . . ■' 

PRINT 

PRINT  "ENIER  THE  LOU  SCRN ' 

INPUT  Loupolnt 

PRINT  . . . . . . . . " 

PRINT  *•" 

PRINT  "ENTER  THE  HIGH  SCRN" 

INF’UT  Mlpolnt 

LOnOSUB  RLL  FROM  " / CLRSSI CK /ROUT ! NE S/LOSSCnLC" 
lINTFGRniF  I 

CRLL  Ont  lrit(  Loupolnt  ,Hl point  .Car  oy(  •  ) , Pr bposl  •  >  .  I  Intg) 

Rff*"!?*  1  *G7*(  (  (Ppovg»Paavg)/77.7G)/t53.3*  T pnpnvg )  ) •  <  Vre f ovg/Muref  ) •  I  Intg 

PRINT  . . . . . .  . . . . . 

PRINT  "" 

PRINT  "OLIGN  PnPER  IN  THE  PRINIER.  WHEN  READY  FOR  A  HARDCOPY  OF  THE  ■' 

PRINT 

PRINT  "CALCULATED  DATA.  PRESS  ""REDUCED  DATA  "  . " 

PRINT  "" 

print  "••• 1 1 •••••• f ••#  t i .#  t  ». f . t  #••••  t  t t ..#.#•*»••••* ” 

ON  KEY  4  LAPEL  "REDUCED  DATA"  GOTO  Prntdatal 
Splrt3;  CPI''  Cpln3 
Prntifetol:  rRINIER  IS  Prnter 

PRINT  . .  . . . 

PRINT  "FILE  ".Calcfllpf 

PRINT  . . . . . . . . . 

PRINT 

PRINT  . . . . . . . . . 

PfUNI 

rniru  "sfan  pru  deia  gamma  phi  xvei 

PRIM  ■■  POSI  T" 

FOR  N't  to  Scorj 

PRINT  USING  "40. 3X.4D.  7D.  3K.riD.  3I)C  .  3X  .MD.  3UE  .  3X  .MD.  3DE  .  3X  .  MD.  30E  .  3X  ,  MD.  30E 

NE  X  T  N 

PRINT 

PRINT  ' . . . . . . . . 

PRINT 

PRINT  "SCAN  V»?l  Vtpf  0  Qref  MACH 

ERIN  I  ■■ 

r  OR  N-*  1  TO  Scan 

PRINT  USING  "4D.  3X.MD.  3DE  .  3X  .Ml).  3f)E  .  JX.MD.  3DE  .  3X.MD.  3DE  .ZX.HD.  3DE  .ZX.MD.  3D 
NEXT  N 
PRINT  ■■■• 

PRINT  . . . . . 

PRIM  I 

PRINT  "SCAN  PrfT-T’t/Or-f  U  Ire?" 

r  OfJ  N  -  I  TO  5v:nn 

PRIM  USING  ■  41).  ■'X  .MD.  3UF  .  3X.Mn.  3l)F  .  3X,MD-  3DF  ’  1 N  .  Ca  1  c(  N.I8).CaIctN,7M.Cal 
NE  V  1  H 


PRINT 

PRINT 

PRI  rjT 

PTM  rn 

PRINT 

■■  ENSFMFILE 

•  F'T'OVT. 

AVERnr,E  5 

ffiTvn 

Tf  M'  AVG 

xRE.rnvG 

VPF.T  AVG 

PRINT  USING  MD.  TDF  .5X  .M3r).  ZHl  .5V  .  30.  ZD.GX.fll).  3r)r  .5X  .MO.  3DE  ,  3X.MD.  IDT  iPpa 
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Z5  74 
Z575 
Z57B 
Z577 
Z578 
ZG73 
Z5B0 
Z5B1 
Z58Z 
Z5B3 
Z5B4 
Z505 
Z5BG 
Z5B7 
ZGBB 
Z5B9 
ZGBW 
Z59I 
Z59Z 
Z533 
ZG94 
ZGB5 
ZBDG 
zr.97 
Z5BB 
7599 
7EO0 

zcet 
ZGCZ 
zr,®3 
ZGT'I 
ZEC5 
zn0G 
zr>0  7 
zrm 
ZE09 
Z6I0 
ZEII 
ZEIZ 
ZGI  3 
ZGt4 
ZEIS 
ZEIS 
ZGI7 

zr>i8 

ZEI9 
ZEZ0 
ZDZ  1 
ZEZZ 
ZF>Z3 
ZFZ4 

znzs 

7FZ6 
ZBZ7 
ZF7n 
ZEzg 
ZB30 
ZG3I 
7G5Z 
ZG3  1 
7514 
7F,3S 


PRINT  -nunEF  lEHPsmrnvn- 

PRINT  USING  ••MO.  30e  .3X,MO.  3DE“»I1uref  .  leBpstBtnvQ 

PRINT  •••■ 

PRINT  ••REYNOLDS  NO^^ 

PRINT  USING  ••0.4DE"ine 

PRINT  • . . . . . . . . 

PRINTER  IS  Scren 

OUIPUI  ePaUi4iC«lc(  •  )  ISERI/IL  OUIPUI  STniEMENT. 

end  if 

PRINT  ■ . . . . . . . . . 

PRINI  ••” 

PRINT  "TO  CRLCULRIE  THE  CP  •  S  FOR  HIE  BLROE  Oflin.  PRESS  ••"DLRUE  CP'S . 

PRINT  •■  PRESS  "GO  ON""  TO  CONTINUE." 

PRINT  ■••' 

PRINI  . . . . . . . . 

ON  KEY  I  LRDEL  "BLni/.  Cl  9"  GOTO  Colculnlecp 
ON  KEY  4  LRREL  "GO  ON"  GOTO  LoadoplIoiiZ 
Spln4:  GOIO  Spln4 

Calciilatecp:  MOSS  SIORRGE  IS  "/CLnSSICK/REDDOIO" 

PRINI 

PRINT  • . . . . . . . . . . . . . 

PRINI  "•• 

PRINI  fnier  hie  file  none  or  ire  blode  nnio  scoled  in  engineering  units" 

INPUT  Sclhlndflle* 

PRINT  " . . . . . . . 

RSSIGN  PPatliS  10  Sclbladllle'. 

PRINT  "" 

PRINI  "ENIER  IRE  FILE  NIWE  TO  STORE  IRE  MOSS  nvERRGED  CP’S  CnLCULRIED" 
PRINT  "FROM  IRE  BLRDE  DOin." 

INI’UI  Blndcalc* 

CREIME  P"ni  BlodFBlr».l00 
nSSIGN  PPathG  TO  Bladc.alc* 

DIM  Prntdatal  I  .48)  IDIMEN5ION  SIRIREHIS  FOR  EILODE  ORROYS 

inni.  HERE  SO  nilROY  space  is  only  nSSlGNCO 

I  IF  DLROE  OPIION  IS  SELECTEE). 

DIM  Cpnntisavgl  4B ) 

MOT  Cpnar.aavg"  (0) 

MOI  Prnldala-  (0) 

PRINI  . . . . . . •• 

PRINT  "" 

PRINT  "ENIER  IRE  LIMITS  OF  INIEGROTION  l.e.,  IRE  LOWEST  TO  IRE  " 

PRINT  'RIGIIESI  SCRN  NUMBER  DESIRED  TOR  OLROE  CP'S" 

PRINI 

PRINI  •• . . . . . . . . 

PRINI 

PRINI  .  . . . . " 

PRINI  "" 

PRINI  "ENIER  IRE  LOU  SCRN" 

INPUT  LoLipoint 

PRINI  ....... 

PRINI 

PRINI  "ENirn  1RE  RIGR  SCRN" 

I  I4’U  I  R 1  po  I  n  I 
IINIEGRRIE  R 

CALL  On  I  1  ti  1 1  L  ou'po  1  nt  .  H 1  po  Ini  ,  Oar  ay  (  .  ) ,  Pihpoal  •  ) ,  Ri  nt  g  ) 

IINIEGRRIE  El 

CR|  I  Dal  1  rtt  I  Laupol  nt  ,  Hi  po  I  f>t  ,  Bar  ay  I  .  )  .Prbpoal  .  ) .  BI  ntg  I 
IINIEGRRIE  Kii 

COLL  Dal  I  nt  I  L  oupo  1  nt  .  Ri  po  1  n  t  ,  K  nar  ayl  .  )  ,Pr  hpool  •  )  ,  K  n  1  n  t  g  ) 

RI.RInlg^Knlntg 
RI"Dlntg/KnIritg 
ENIER  PPathSiPf  nldatal  .  ) 


ZElr,  rp-Prntrl,-i)aM  .  T> 

ZED  r  OR  N-r  Irotbladeprl  10  Laatbladrprf  lORIRINED  EROM  PORI  ASSIGNMENT  SREF  I 
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array  assignment  section  of  "CALC." 
in  lines  2071  and  2191  of  Table  Bl. 


These  changes  are  shown 


Modification  to  provide  for  mixed-out  flow  loss 
required  subroutine  calls  Xref ensemble,  Vrefensemble, 
Tempstatensemble,  to  calculate  values  Vj.g£  and  T^^ef  needed 
for  evaluation  of  the  integrals  as  defined  in  Appendix  D.  The 
subroutines  required  are  contained  in  "SUBCALC."  Additionally 
most  values  had  to  be  placed  in  arrays  for  the  proper  passing 
to  "LOSS."  Lines  2350-2510  of  Table  Bl  contain  the  changes  to 
"CALC."  Table  B2  is  a  listing  of  "SUBCALC." 

2 .  "LOSS"  Changes 

The  "LOSS"  program  was  ■  ">dified  to  perform  fully- 
mixed-out  flow  loss  calculations  in  addition  to  the  previously 
programmed  mass  averaged  loss  calculation  of  Classick  [Ref. 
6].  This  required  the  change  of  variables  from  simple  to 
array  variables,  the  addition  of  five  subroutines  and 
subroutine  calls,  and  the  associated  print  and  format 
procedures  to  produce  the  additional  output. 

The  pressure,  dimensionless-velocity,  yaw  angles  and 
position  variables  were  assigned  to  an  array  to  allow  the 
subsequent  calculations  discussed  in  Appendix  D.  This  allowed 
for  proper  passing  of  upstream  and  downstream  values  to  the 
appropriate  subroutines.  Lines  740-1290  of  Table  B3  are  where 
the  changes  occurred. 
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TABLE  B2 


SUBCALC  PROGRAM  LISTING 


IB  IMLt  bUULIILL 

15  I  IMIS  FILE  CONiniNS  OLL  THE  CFILCULnilON  SUBROUTINES  CRLLED  BY  THE 
Z0  IDflin  REDUCTION  PROGROfl  CflLC. 

Z5  SUB  Dgcalcd’a.PI  .PZB.P'I.PS.Beta.Genna) 

30  Beta'IPI -rZ3)/(PHPo) 

3S  Gapina-(P4-P5)/(PI-PZ31 

40  SUBEND 

45  SUB  Xphlcolcl  Bela. Ganna. Xvel. XU). Phi. P(*)) 

50  OPTION  BOSE  I 

55  Din  E(G) 

60  DIM  FIG) 

GS  MRI  E-  (0) 

70  MOI  F-  (0) 

75  FOR  J-1  TO  6 

80  E( J  )"X(  1 . J ) *X(  Z . J )*Ganna*X(  3 . J ) •Ganna" Z  tXI 4 . J ) •Ganna" 31 X(  5 . J  > •Gonna*4 I XI 6 . 
85  FI J)*P(  I . J)*P(  Z .J>«GannalPI 3 . J ) ‘Ganna" Z*PI 4 . J ) •Ganna" 3«PI  5 . J > •Gnnna"4<PI B . 
90  NEXT  J 

95  Xvel-EI  niEI  Z)*BelatEI  3)*BetB"ZlEI4)^OetB"3lEI5)»Bela"44EIG)*Betn"5 

100  Phi -FI  I  )+FIZ)»Bela»EI3MBela"Z*FI4)^Beta'3<FI5)»Beta"4«FIB)^Bela‘5 

105  SUBFNO 

110  SUB  VnqcalclXvel .Cp. lenp.G.Vel .Mach.PI .Pa.O) 

1  15  Vel-Xvrl  •(  7«Cp*77B^3Z.  1 74  •Imp)  ".5 

IZ0  f1ach-(  1 1  Xvel  "Z)/l  I  -  Xvr!  "Z  ))^IZ/IG  I  )  I )"  .5 

IZ5  0-1  PHPa)^l6/IG-  I  )  )»XveI  "Z*!  I  l-Xvel  "Z  )  " I  I  / 1 G-  I  >  )  ) 

130  5UDEND 

135  SUB  XreCcalcIPa.Pp.G.Xi  eF  ) 

140  XreF-l  )-IPa/IPptPa))"IIG-l)/G))".5 

145  SUBENO 

150  SUB  KncalrlPa.PI .Pp.Xvel ,Xref .G.You.Xn) 

155  Xn-HPIiPa)/<Pp«ra))*l  Xvel/Xi  eF  )•!!  I  I-Xvb1"Z)/I  I  - Xr bF "  2  >  > "  I  I  / 1 G- I ) ) ) 

160  sum*;') 

IBS  SUB  Coefpreseiri .Pp.Pa.Xvel.G.Cpa.Cpl) 

170  Cpt-IPI iPal/IPplPa) 

175  Cps'l  IPHPa)^l  I  l-Xvel  *2  )"IG/IG-I  )  I )  )/IPp»Pa) 

180  SUBFNO 

IBS  SUB  Enscnhl el Pp.Plnl I lal .Pa.Palnl t  tal . lonp . I Inl t lal .Ppavg .Pnavg , Tenpavg ,N ) 

130  rpr-Ppirinlllal 

195  Ppavg-F’pe/N 

Z00  F’  1  nl  1 1  nl  -I’pe 

Z05  Te- I enpl 1 1 nl 1 1 al 

ZI0  Tenpavg- I e/N 

Z15  Tlnllinl-1e 

ZZ0  Pae-PaFI’nlril  t  la! 

ZZ5  Paavg-Par/N 

Z30  Pnlnl t lal -Pae 

Z35  suorrio 

Z40  sun  Xre f ensenbi el  Paavg .Ppavg ,G . XreFavq) 

Z45  XrefBvq-l1-IIPaavg)/<PpavgiPnavg))'IIG-I)/G))".5 

Z50  suorijo 

Z55  SUB  Vref rnaenbl rl  XreFavg .Cp . Tenpavg .VraF avg) 

ZE0  VreFavg-XreF  avg^  I  2 • Cp*  T  enpavg*77B»  32. 174)*. 5 

ZG5  SUBFNO 

Z70  SUB  Or  eF  enaenbl  el  Paavg  .Ppavg, G  .  XteFavg.  Orel  avg ) 

775  Or  eF  avq- 1  PpavgiPaavg )*IG/IG- I ))»XreF  avg" Z • I  I  - Xr  e  F  avg" Z)"l  I/IG-I )) 

ZB0  SURFNO 

Z05  SUB  Qvre I  cal  cl  XreF ,Cp , I enp ,G .Pp .Pn.OreF , VreF ) 

Z90  VreF-XreF«(Z*Cp*778«32. I74*lenp)".5 

2  95  Or  eF-IPatPp)»IG/IG-  I  )  )•!  XreF'Z  )•!  I  l-Xref  "2  )"l  l/IG-  I  )  )  ) 

300  SUBFNO 

305  SUB  CplnlrgrantFIPp.PI  .Pa.G.Xvel  .n.P.Xri) 

310  M-Pp/I  irHPa)*IG/IG- 1  )  I^Xyel  "Z»l  I  I  -  Xvel "  Z  ) "  I  I  / 1 G-  I  ) ) ) ) 

315  NI-IPa/IP|tPa))-lll  -  Xve  1  "  Z  )  *  I  G/l  G  ID) 

370  H7-(  G/l  G  I  D•XveI  "7*1  I  I  -  Xvel  "2  )"l  I  /  IG  '  )  ) ) 

375  N-N1/N2 
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330  n-M*Kn 
335  D’N-Kn 
340  SUOENO 

345  SUD  Cpralc(ni .Bl .Pp.PlocHl .C) 

350  C-( (Plocol/rp)»ni )4DI 

355  SDBFNO 

360  SUB  SlBt!cpri!aa(PI  .Pa.Xvel  .G.Ps) 

365  Pa-(rHPB)*(  l-Xvel-2)*(G/(G-  I  )) 

370  SUBFND 

375  SUB  Prefqref<Pp.PI .Oref .Pq) 

300  Pq'(Pp  PI  >/Qref 
3B5  SUBFND 

300  SUB  Vlacyou( Tenp  Tenpatat .U) 

305  U’( ( Fenp/leapatat )* 1 .5)«< ( I98.72«1enpsial )/( l98.7Z4Tenp) ) 

400  SUBFND 

405  SUB  Bel n t egrand< Kn ,U, Yau, Ire ) 

410  Ire”(  Kn/COS(  Yau)  )«U 
415  SUOEND 

420  SUB  T eapa t a t cal c< X vel , 7 amp . leaps lal > 

425  Tcnpslal  •  I  en{)"  (  I  -  (  Xvel  *2  ) ) 

430  SUBFND 

435  SUB  reaps latonaeabl ( leapavg . Xref avp . leaps latavg ) 

440  7  eaps  t  a t  avg^  7  eapavq* (  l-<Xrefavq*7>) 

445  SUDFNn 

450  SUB  Muref ensenbl e< 7eaps talavg . Mur ef > 

455  Mur  ef •((. 063379*  7  enpa t at avg' l.5)/(  198.72*7  eaps talavg ) )• I . I 53E- 5 

460  SUBENO 
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LOSS  PROGRAM  LISTING 

10  irnoonnM  lossg 

Z0  I  THIS  PHOGRnH  USES  VnLUES  FROM  THE  COLC  fiRROYS  GENERATED  BY  REDUCING 
30  ISCOLED  DRin  IN  PROGROM  CflLC.  SUBROUTINES  INTEGROTE  THESE  VALUES  RND  A 

40  I  STATIC  PRESSURE  RISE  COEFFICIENT .AVOR  &  LOSS  COEFFICIENT  IS  CALCULATED. 

50  I  MUCH  OF  THE  COOING  UAS  PREVIOUSLY  COMMENTED  ON  IN  PROGRAM  ACQUIRE  AND 
G0  I  PROGRAM  COLC. 

70  OPTION  BASE  ( 

80  DIM  CaIcK  I00,Z5)  (NOTE  THAT  u  AND  1  DESIGNATORS  DISTINGUISH 

I  THOSE  VALUES  FROM  UPPER  SURVEY  AND  LOWER 
l®0  ISURVEY  STATIONS  RESPECTIVELY. 

110  DEG 

1Z0  G'1.4 

130  Scrert*'! 

140  Prnter«701 

150  DIM  CalriK  100,75) 

IGP  DIM  I'm  III  ICO  ) 

170  dim  Posltul 100) 

180  DIM  Cpl«kri(l00)  TCOI1DINED  VALUES  TO  MAKE  THE  INTEGRATIONS 

190  DIM  Cptuxknol 100)  IMORE  EXPLICIT  TO  THE  PROGRAMMER. 

Z00  DIM  Cpsxknl  100) 

Z  10  DIM  KnI  100) 

ZZ0  DIM  Knul  100) 

Z30  DIM  Yxki.l  100) 

Z40  dim  Zxknul  100) 

Z50  DIM  Paul  100) 

Z51  DIM  Pall  100) 

ZB0  DIM  Xl( 100) 

Z70  DTM  XIreTl 100) 

ZB0  DIM  PlrrTl  100) 

Z90  DIM  PtH  100) 

300  DIM  Y".i’  (  100) 

310  DIM  Xu:  .00) 

3Z0  DIM  Xuref  1  100) 

330  DIM  Purefl  100) 

340  dim  Ptiil  100) 

350  DIM  Yauul 100) 

3G0  MAI  CalcI"  (0) 

370  MAT  Calcu’  (0) 

380  HAT  Poall’'  (0) 

390  MAT  Poaltu’  (0) 

400  MAT  Cptxkn-  (0) 

410  MAT  Cptuxknu*  (0) 

4Z0  MAT  CpoKkn".  (0) 

4  30  MAT  Kn-  (0) 

440  MAI  Knii"  (0) 

450  MAT  Yxkn«  (0) 

4B0  MAT  Zxknu-  10) 

4  70  MAI  Pnu-  10) 

471  MAT  Pal>  <0) 

480  MAT  XI-  (0) 

490  MAT  Xlref”  10) 

500  MAT  Plref  (0) 

510  MAT  Ptl-  (0) 

5Z0  MAT  Yaul-  (0) 

530  MAI  Xu’  10) 

540  MAT  Xi.reT-  10) 

550  MAT  Puref-  (0) 

560  MAI  Ptl!'  (0) 

570  mat  Yauii’  10) 

580  LOADSHB  Al  l  FROM  "/CLASSICK/ROUTINES/IOSSCAI  C" 

581  LOADSHB  AIL  FROM  ■VClOSSICK/ROUIIHES/LOSSCnl  C  1' 

590  LOAOSUB  ALL  FROM  •VCLASSICK/ROUIINES/SOBMI XL0S5 I " 

600  MASS  STORAGE  IS  "/CLOSSICK/REDOATA- 

GI0  PRINTER  IS  Prnter 

670  PRINT  "LOSS  CALCULATION  RESULTS  FOR  STATION  TUO  AND  MIXED  FLOU  RESULTS." 
G30  PRINT  ■  . . . . . . . . 
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630 

650 

660 

PRINIER  IS  Scran 

PRINT  "FNIER  THE  NOME  OF  THE  FILE 
PRINT  "LOWER  PRODE" 

CONrniNING  THE 

CfiLCULOTED  DOTO  FROM  THE 

680 

INPUT  ColcirUe* 

G90 

PRINT  "ENIER  IN  THE  HIGHEST  SCON 

TOKEN  FOR  LOITER 

SURVEY" 

710 

INT’UT  ScanI 

770 

nSSIGN  PPoihl  TO  Colclflle* 

730 

enter  epathl  iCalcK  • ) 

7/10 

FOR  N"l  TO  Sconl 

750 

PosHTNI'ColcKN,  1  ) 

7G0 

Kn(N)'Colcl(N,  10) 

770 

Cpt-CalcK  N,  I  1  ) 

700 

Cps-ColcK  N,  1?  ) 

790 

Pal(N)-Colcl(N.19) 

B00 

P»l-Colcl(N,70) 

ei0 

XIfN)*Colcl(N.5) 

870 

Xlrer(N)-Colcl(N.G) 

0  30 

Plrrf(N)-CaIcl(N.73) 

,M0 

PtUN)-Colci<N.7<H 

B50 

Youl(N)-Calcl<N.9) 

860 

QI-Colcl(N.t5) 

900 

Y'lPoIIN)  Pr.l  )/0I 

910 

Cplxknl  N)'  Cpl*Kn(  N) 

970 

Cp5xkn(N)"Cp9*Xn(N) 

930 

Yxknl  N)-Y»Xnl  N) 

930 

NEXT  N 

9S®  Sk  ipy:  PRINT 

gG0  Plrefavg'CalcK  I  ,75) 

970  Palavg'Calcl(7.25) 

980  Xlrefavq-CalcK  3.75) 

990  PRINT  F  ITER  THE  NmiE  OF  THE  FUE  CONIOINING  THE  CRLCULfiTED  DRIO  FROM  THE 
1000  PRINT  UPPER  PROBE" 

1010  PRINT  "•••f  . . . . . . . 

1070  INPUT  CalruTllft 

1030  PRINT  "ENTER  IN  THE  HIGHEST  SCON  TOKEN  FOR  UPPER  SURVEY" 

1 030  PRINT  '>>  ••••••••It.,.,. . . . . . . 

1090  INPUT  Scnrm 

I0G0  OS5IGN  PPeiTTiT  TO  Calcufllr* 

T070  ENTER  PT’at)'7  i  Col  cu(  •  ) 

1000  FOR  N’t  TO  Scoriii 
1090  Po!<ltu(N)’CnIcii(N.  I  ) 

1100  Knul  NT'CalcuT  N.  10) 

1110  Cp  t  ii’Cal  cuT  N ,  I  1  ) 

1170  PotjT  N)'CnIcu(  N,  19  ) 

1130  Pau’Cal rut N . 70) 

1  M0  Ou’CoIcuTN.  15) 

1  150  XuTNl’ColciHN.S) 

1160  Xiiraf  T  N) 'Col  ciiT  N.  n  ) 

1170  Puref ( N ) "Col cuT N . 7 3 ) 

1  180  PEii(N)-Colcu(N,73) 

1190  YouiuT  Nl-Col  nii(  N,9  1 
17  10  7-(Psu-Pnii(  N)  )/0u 
1770  Cpliixk  nu(  N ) '-CpUitKnul  N ) 

1730  7xkfiii(N)-7«Knu(N) 

1730  NEXT  N 

1750  Sk IPZIPRINTER  IS  Prnlor 

1760  PRINI  "USING  FILES  " . Col  cl f 1 1 r9 . "  " .Cal cul 1  la* 

1770  Puraf ovO’Cal ru( 1 , 75 ) 

1780  Podovg-Col ru( 7 , 75 ) 

1790  Xuraf avp’CoI cut  3,75) 

1300  PRINT  "" 

1310  PRINT  "XLREroVG  PLOFTOVG  POLOVG" 

1370  PRINT  USI NG  MD.  3DE  ,  I X , NO,  3DF. , MIT.  3I)F ’’  i XI raf ovq , P 1  ra T ovq  Pol avq 
1 330  PRINT  "" 
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1340  PRINT  "XUREFOVG  PUREFRVG  PRUnVG" 

1350  PRINT  USING  "MD. 30E . lX.MO. 3DE .NO. 3DE" iXurelnvg.Puref avg  Pauavg 
I3B0  PRINT  ■■■• 

1370  PRINTER  IS  Scren 
1380  PRINT  ■••• 

1390  PRINT  "ENTER  THE  LIMITS  OF  INIEGROTION  FOR  THE  LOUER  PROBE  SURVEY" 

1400  PRINT  "" 

1410  PRINT  . . . . . . . . 

1470  INPUT  "ENTER  THE  FIRST  POINT"  .Loupoliitl 
1430  INPUT  "ENTER  THE  LOST  POINT" .HlpoTntl 
1440  1  COLL  THE  INIEGRRIION  ROUTINE 

1  450  EOLL  Oall  nt  (  Loupol  nt  1.  HI  point!. Kn(*>  .Pool  t(  •  )  .Denonlnat  or  > 

1  4G0  COLL  Da  t  Int  <  Loupol  nt  1  .lllpolntl  .CptiHiril  •), Posit!  •  I.Intego) 

1470  COLL  Oa  t  Int  (  Loupol  nt  I  .Hlpolnt  1  .Cpsxlf  fi<  •  )  ,Pos  1 1  <  •  ) .  Integc ) 

I4B0  COLL  Oat  lnt<  Loupolnl  1  .Hlpolnt  1  . Yiiki)!  •  >  .Posl  t<  •  )  . Integy  > 

1 430  COLL  IntegralsIPtl! • 1 .Xl< • ) .Pal! • ) .Plrof ! • ) .Xlref I »  > .Yaul!  • ) .Posit!  • > .Hlpo 
1500  PRINT  "" 

1510  PRINT  "ENTER  THE  LIMITS  OF  INIEGROTION  FOR  THE  UPPER  PROBE  SURVEY" 

1570  PRINT  "" 

1530  PRINT  . . . . . . ..•I.... . 

1540  INPUT  "ENIER  THE  FIRST  POINT" .Loupolntu 
1550  INPUT  "ENTER  HIE  LOST  POINT"  .HIpoIntu 

1 5G0  COIL  Dal  1  n  I !  L  oupol  ntu  .  Hlpo  Intu.Kini!  •l.Posltu!  •  ),  Nunerat  or  ) 

1570  COLL  Da  tint!  Loupo  Intii  .Hipolntu.Cpluxl  no!  •  )  .PosI  to!  •  ) .  1  nt  eqb ) 

1 5B0  COLL  Dal  In t !  Loupolntu. Hlpolnlu./xknu!*) .Pos 1 1 u! • ) . I ntegj ) 

1590  COLL  I nt egral s!  Ptu! • ) , Xu! • ) .Pou! • ) .Porof !»).XurcT!*>. Yauu!  •l.Posltu!*). Hlpo 
IG00  PRINTER  IS  Prnter 

IGI0  PRINT  "  INTEGO  INTEGC  INIE6Y  INIEGB  INIE6Z  NUMEROIOR" 
IG70  PRINT  USING  "MO. 3DE . I X .MO. 3DE . 1 X .MO. 30E . I X . HD. 3DE . I X.MD. 3DE . MD. 3DE" 1 1 nt eon . 
IGG0  PRINT  "" 

IG70  PRINT  "OENOMINOTOR" 

IG80  PRINT  I, SING  "HO.  30E"  lOenonl  riator 
1690  PRINT  ■" 

1700  PRINT  " . " 

1710  Cp7r!  I nt eqe/Oenonlnator ) 4! I nt egy/Oenonlnat or  ) 

1770  nvdr''Nunei  olor/Ornonlnnlor 
1730  PRINT  "SIoriON  TUO  RESULTS" 

1740  PRINT  " _ " 

1750  PRINT  "Sioiic  PRESSURE  RISE  COEFFICIENT" 

1750  PRIHI  USING  "M0.3DE"iCp7 
1770  PRINT  "" 

1700  PRINT  "OVOR" 

1790  PRINT  USING  "MO. 3DE" lOvdr 
1800  PRINT  "" 

1010  U"!Intepn!l/Ovdr')*!I  fit  agbl )/!  I  nt  eqn'  I  nteqr ) 

1070  PRINT  "LOSS  COEFFICIENT- 
1830  PRINT  USING  "MD.30E"|U 
1040  PRINT  "" 

1850  PRINT  " - - - - - - - 

1860  PRINT  "" 

1870  PRINT  "THE  FOLLOUING  IS  FOR  MIXEO  FLOW  RESULTS" 

1880  PRINT  "" 

1890  PRINT  " - - - - - " 

1891  PRINT  "  IIOVGL  UOVGL  1 3nVGl  1  10VGU  IZflVGU  1 30VDU" 

1  897  PRINT  USING  "MO. 30E , 1 X .MO. 3DE . IX .MO. 3DE . I  X . MO. 3DE . I  X .MD. 30E , I  X .MD. 3DE" 1 1  I  a 
1893  PRINT  "" 

I  900  COL  L  Conceal c!  I  I avgl . 1 7 avgl . 1 3avgl . Xlref  avq .Oavgl .Bavql .Cavgl .Davgl .Eavgl ) 
1901  PRINT  "OOVGL  BOVGL  COVGL  DOVGL  EOVGL" 

1907  PRINT  USING  "MO. 3DE . I X .MO. 3DE . I X.MD. 30E . 1 X . MD. 3DE . 1 X .HD. 3DE" i Oavgl . Bavgl . C 
1903  PRINT  "" 

1910  COLL  Conseal  c!  1 1  avgu .  I  Zavgu ,  I  Savgii  .Xuref  avg  .Onvqu.Bavgu  .  Cavgu  .Davgu  .  Eavqu  1 

1911  PRINT  "OOVGU  B0V6U  COVGU  DOVGU  EOVGU" 

1917  PRINT  USING  "MD. 3DE . 1 X .MO. 30E . I X .MD. 3DE . 1 X . MD. 3DE . 1 X .MD. 3DE" I Oavgu .Bavqu .C 
1913  PRINT  "" 

1970  COLL  Mlxfl  ou!  Oovgl  .  Bavgl  .Cavgl  .D.ivql  .Eavgl  .Xlref  nvg.  1 1  avgl  .Pal  avg  .XI  nl «  f  1  o 
19  30  COLL  Ml  K  f  1  ou!  Oavgu  .Bavqu .  Covqu ,  Oavpu.Envqu  .Xurel  avq .  1 1  avqii  .Pnuavq .  Xiinl  x  f  I  o 
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1950 
1950 
1970 
19B0 
1990 
1992 
2000 
2010 
2020 
2090 
2040 
2050 
2050 
2070 
2000 
2090 
2  100 
21  10 
2  120 
2  I  30 
2  140 
2  150 
2150 
2  170 
2  I  00 
2  190 
2200 
2210 
2220 


PRINf  USING  "110.305.110.305. 1)1.110.306.  lX.MD.  305"  i  XI  nix  f  lou.  Voul  nl«f  1  ou  .Pt  I  r 
PRitn 

POINT  "XmXFLOU  YnuilIXFLOU  PlOnilO  PSOnilO  for  UPP5R  SIRTION" 

PRINT  USING  "110.  305  .110.305  .  IX,  110.  305.  IX. MO.  305"  i  Xunlxf  1  ou.  Yauunl xf  1  ou .Pliir 
COLL  MlxIosBlPturotio.Ptlrallo.Pfllrollo ,PaI avg .Pauavg .Plref avq .Puref avg .Un 
CULL  Ovdrnlxl Pt Irat lo, Plural  to, Xlntxflow, Xunlxf lou , XI ref  avg, Xuref  avg , Yauln 
PRINT  "" 

PRINT  " - - " 

PRINT 

PRINT  "MIX  FLOW  RFSULTS" 

PRINT  " _ •• 

PRINT  "" 

PRINT  "IIIX  FLOO  SinilC  PR5SSUR5  RIS5  C06FF ICI5NT" 

IPRINT  USING  "HO. 305"iCpnlxf lou 
PRINT  "" 

PRINT  "MIX  FLOU  OVDR" 

PRINT  USING  "M0.306'  iFlvdrnlxflou 
PRINT  "" 

PRINT  "MIX  FLOU  LOSS  C05FFICI5NT" 

PRINI  USING  "110.306"iUnlxriou 
PRINT  "" 

PRINIFR  IS  Scren 
PRINT  "" 

PRINT  . . . . .  . 

PRINT  "" 

PRINT  "  5ND  OF  PROGRRH" 

PRINI  "" 

PRINT  . . . . . 

5ND 
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The  additional  subroutines  for  the  fully-mixed-out 
loss  calculation  are  in  the  routine  "SUBMIXLOSS . "  Subroutine 
"Integrals"  is  used  to  calculate  the  necessary  integrals  as 
shown  in  Appendix  D.  Subroutine  "Conscalc"  reduces  the 
integrals  to  the  needed  constants  for  the  fully-mixed-f low 
quadratic  equations  described  in  Appendix  D.  Subroutine 
"Mixflow"  returns  the  mixed-flow  pressure  ratios  for  the  mixed 
loss  calculation.  Subroutine  "Mixloss"  provides  the  mixed-out 
loss  coefficient  while  subroutine  "AVDR"  provides  the  mixed- 
out  axial-velocity-density  ratio.  Lines  10-640  of  Table  B4 
incorporate  these  changes. 

The  print  and  format  statements  were  added  in  lines 
1610-2150  of  Table  B3 .  These  changes  are  shown  in  Figures  B3 
and  B4  which  are  the  printouts  of  the  loss  results  for  the 
reference  blade  and  the  slotted  blade. 

B5.  PROGRAM  LISTINGS 

The  complete  listing  of  the  programs  and  associated 
subroutines  is  given  in  the  Table  of  Contents  for  Appendix  B. 
The  listed  programs  are  matched  with  the  below  identified 
subroutines : 

ACQUIRE  CALC  LOSS 

SUBACQUIRE  SUBCALC  SUBLOSS 

SUBMIXLOSS 

Plots  as  listed  were  printed  out  using  the  following 
plotting  programs: 
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SUBMIXLOSS  PROGRAM  LISTING 


20  I  THIS  FILE  CONirilNS  THE  CHLCHLftf IONS  NEEDED  TO  FIND  THE  MIX 

30  IFLOU  FfinnHETERS  OF  HNr  HEftSURED  STATION 

4<d  t 

50  UNTEGRmLS  FINOS  THE  nnvO.IZMvD  RND  I3mvG  VmLUES 
60  »C0H5CmLC  finds  THE  ViTlUES  Of  H.B.C.D.E 

TO  IMIaFLOU  MN05  THE  VmLUES  OF  K  .  utU .  FT  (tHTION  hNO  PS  RHTIO 

BO  IMIaLOSS  riNDS  THE  CPT.  mVDR  FiND  HIK  FLOW  LOSS 

SO  SUB  I nt egrol 9<  F t  < •  ) , a< •  )  ,Fa<  *>,rtref(*> , Asref ( •  ; , rau( • ) ,Po5it( • > , Hi point .L 

100  OFT  I  ON  BfTSE  * 

101 

110  DIM  Integra!  M  100) 

120  DIM  IntegrBl2<  100> 

130  DIM  Integrant  100) 

MO  MmT  Integral!- 

150  MmT  Integral!-  (Oi 

160  MmT  lntegral3"  <0> 

170  FOR  N-1  TO  Scan 

I  BO  Int  rgral  MNj»<<Ft<N>+ra<N>>»AtN>»<l-A*N/  2  t  i  l/iG-l>)*C05(  Tau(  N  /  >  >  /  ( t  Ftref 

1  50  1 ntcqral 2 ( N )-( I ntegral I <  N /• a<  N> • 5IN( tbu( N i >  >/ Kerel <  N  > 

200  I  ntcqral  3<  N  ;-(<  Ft  <  N  / +  Fa(  N;  >•!(  I  -  Xi  N I  Zp  3.  Sf(  7*  Xt  N  ;  Z  •  t  I -X(  N  )  Z  )  Z.S^COSit 

2  10  NEa  r  N 

2  70  CT»l  I  Oit  1  nt  1  <  Loupoint  .Hipci mI  ,  I ntcgr ol  l<  •  i  .Fosi  t  <  •  )  .  11  > 

2  30  cot  L  Dat  1  nt  I  <  Loupoi  nt .  Hipoi  fit  ,  I  nlegral  2<  •  )  .Fos  1 1  <  *  >  .  1 2  > 

240  COI  L  Oat  I nt 1 < L oupoint .Hipoint . Integral  Si • ; .Fos 1 1 < ♦ / , I  3 / 

250  I lavg-I I 
260  I2avq-»I2 
2  70  I  ^Tavg*-!  3 
2  BO  SUBEND 

250  t - - - - 

300  5HB  T  c' >5cnl  ci  1  1  avq .  1  ZavQ ,  1 3nvg,  Arel  evq, M .B , C  , D.E  ^ 

310  M-’Xre«  ava*<  IZnvg/ 1  lavg> 

3rO  B’-Kref  nvp«  (  1 3ovgr  1  1  avgf 

3?0  G- I .41 

340  C*“<  (  I  )/  (  G'  I  ) )  2 

3S0  D-2  •  SOB  r<  C  )•(  I -( <  2 'G )/ <  G- 1  i  #*r't  2)-B  2 

360  E'-(  1  -  M  2  *0// <  6- 1  ) )  •M  2)  c*B  2*fT  2 

370  5UBEND 

560  I  . - . . - . . . 

350  SUB  Hi  X  n  ouf  Fl ,  B ,  C  ,  D.  E  .  P<r9f  mvq  1  avo.F'aavp,  Ani  x  f  1  ou ,  rauni  x  flou.Ftrntio.FBra 

400  G  *- 1 . 4  I 

410  Am  X  IloMsgr  1-f -D*  bORTi  D  2  -  4  'E  > ;/ <  2  *0  > 

420  XmxT  loM5qr2»-< -DSuRHD  2  -  4  *0  •£  /  >/ (  2  *0  > 

430  Anix  f 1 oul ’50nf<  ami x# 1 owsqr I > 

440  An  1 X  f  1  nu2  •'SOB If  xni  x  f  1  ouiaqr  2  ; 

450  IF  Am xT  1  ou  M Am X  f  1  ou2  THEN 
4rj0  Am  X  f  1  ou*  Am  X 1 1  our? 

470  ELSE 

4  60  Am  X  M  ou*Xm  X  f  1  ou  I 

450  END  IF 

5'7^  Taum  X  f  1  ou*m5N<  m/  Am  x  f  1  ow ) 

5  iO  F  tr  nl  io*<  Xref  avg/  Amxflov»)*<<  l-xref  avq  Z>  2.5)/<l-Xmxflou  2>  avg/  C 

520  Fxrnt  1  o'=^Ftrnt  i  o«  <  I  -  Xm  X  f  1  ou  2/  <r7/<G'l); 

530  SUDENO 

5^^  I - - - 

550  SUB  Hjxloaa(rt2ratio,Ftirat*o.rslratio .Fal ,Fau .F Ir ,Fur .Loan i 
570  Lonfl-<FtlratiO'Ft2ratio;/(Ftlratio-F8lratio) 

560  SUBEND 

55^  I - - - - 

600  SUB  Mvdr  mx<Ftlratio.F*t*^«tio,Xlmx,  Xunix  ,  Alref  ,  nuref  ,  raul  ,  rauu  ,  Mvdr  p 

610  k  1  m  X  f  1  OM-Pt  1  rat  I  o»  (  XI  m  x/Xl  r  ef  f  •<  (  I  -  XI  ni  X  2#/<l-Alref  2)>  2-5»C05<TauM 

620  Ki»n  1  X  f  1  ou'P tura 1 1  o*  <  Atini  x/  Aur  el  )  •  ( <  1  -  Xum  x  2  )/(  1  -  Xur  si  2  )  /  2 . 5*C0S1  fauu  ) 

630  Bvtlf  '•Kum  X  11  ou/  k  I  ni  x  1  *  ou 

640  5UGFND 
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LOSS  COLCULOIION  HESULTS  FOR  SIOUON  TUO  OND  MIXED  FLOW  RESULTS. 


USING  FILES  L-0'IMnY7CnLC  U-®IJUNCnLC 

XLREFWG  PLREFnVG  PALOVG 
S-S-tTE-BZ  I.ZG7E40I  4.O6GE40Z 

XUREFOVG  PUREFnVG  PflURVG 
9.3I8E-0Z  I.Z63E+0t  4.O74E402 

INIEGO  INIEGC  INtEGY  ItJIECB  INIEGZ  NUMERniOR 

Z.325E400  2.Z2SE400  l.0IBE*00  2 . 35ZE <00  -  I . I 77E-0I  Z.37GE400 

DENOMINniOR 

2.339E400 


SIfiTION  TUO  RESULTS 

STATIC  PRESSURE  RliE  COEFFICIENT 
3.OSIE-0I 

ovim 

I .0IEE400 

LOSS  coefficient 
I .0I4E-0I 


THE  FOLLOUING  IS  OR  MIXED  FLOU  RESULTS 


MIX  riOU  LOSS  COEFFICIENT 
8.7G0E~0I 


Figure  B3 ,  Reference  Blade  Loss  Output 


LO'^r,  cm,cuLnTioM  ntsutfs  rnn  siniioti  luo  mm  hixeo  flou  hesulis. 


USING  FILES 

L 

-0/tnaY7coLC 

U-3IMftVMCnLC 

XLfiErnvG 

9.  S-tZE  0Z 

PLnrrnvG 

1 . 7R7E*0I 

PniRVG 

4.0GRF40? 

MunErnvr- 

g,3I5E'0Z 

PuriEFnvG 

I.ZG0E<0l 

rounvG 

4.0RHE407 

INIEC.n 

Z. 3Z5E*»0 

INIEGC 

Z.ZZ5E<®0 

INIFGY 

I .0I8E400 

INIEGB  INIEGZ  NUfiERniOR 

Z.3BBE<0«  -i.l5BE-0l  Z.4IZE^®0 

DCNOMINniOn 

7.333F*®® 

sinrioN  Tuo 

RESULTS 

STOflC  rnESSURE  RISE  COEFFiriENF 
3. nSSE- ®1 

nvfiR 

I .®3IE*®0 

LOSS  COEFIICIEm 
e.9R9E  0Z 

IFIE  FOLLOUIHG  IS  FOR 

MIXEEI  FLOU 

RE  SUL  I S 

I  iniiGL 

IZOVOl. 

I 30VGL 

1  invc'u 

iznvGU 

I snuGU 

7.7''e':  01 

R.9r,SE-0l 

1  .  I5ZEI07 

0.038E-0I 

3.  1  3GE-CZ 

1 .  I4GE<0? 

finVGL 

BRVCL 

CRVGL 

OOUGL 

EftVGL 

C. 344E-07 

1 . 3nGEt0I 

3.455E*0I 

-I.8I0EI0Z 

Z.745E*00 

finvGU 

gfivgu 

tnvGU 

OOVGU 

EOVCU 

Z-G-ISE-®.! 

1 . 3ZflEt0F 

3.45SEI0I 

- 1  .G4ZE»0Z 

1 .00ZE*00 

XMI  Xf  LOU 

vnuMixfinu 

p  I  nn  1 1 0 

psnniio 

FOR  LOWER 

STRIIOU 

I . 1 I5E-0I 

<.8<tSEt0l 

g.943E-0l 

9.GZ5E-0I 

XMI  XF  LOU 

YRUMIXrLCU 

riRoi  10 

psnntio 

FOR  UPPER 

STRIION 

7.fl0GE-0Z 

Z.GG9Et00 

9.540E-0I 

9. 34ZE-0I 

MIX  FLOU  PF51IL  IS 


MIX  FLOU  srntic  putssunE  fuse  coefficieni 

MIX  floo  nvon 
1 .0.TIE  *00 

MIX  FLOU  LOSS  COEFncIEni 
9.6??E-0I 


Figure  B4 . 


Slotted  Blade  Loss  Output 
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Plot 


Program 

CPBLADEPLOT 

BETAPOSIT 

PRESSPLOT 

WREFPLOT 


Figure  12 
Figure  7 
Figure  9 
Figure  8 


The  plots  are  printed  using  the  DUMP  GRAP  key  on  the  Hewlett 
Packard  keyboard.  A  simple  understanding  of  the  plotting 
procedures  of  Reference  10  is  needed  to  ensure  proper  plots. 


B6.  DATA  LISTING 

Table  B5  lists  the  scanivalve  port  and  scanner  channel 
assignments  for  data  acquired  using  the  program  "ACQUIRE." 

An  example  of  the  table  of  survey  data  for  an  upstream 
survey  output  by  "ACQUIRE"  in  raw  measurement  units  (volts)  is 
given  in  Table  B6  with  the  corresponding  scaled  (engineering 
units)  data  output  in  Table  B7.  Results  of  downstream  surveys 
for  both  reierence  and  slotted  blades  are  similar,  with 
variations  occurring  only  in  measurements,  scan  numbers  and 
scan  positions. 

The  following  list  provides  the  reduced  data  output 
tables  and  the  corresponding  survey  position  and  blade; 


Table 

B8 

B9 

BIO 


Position 

Upstream 

Downstream 

Downstream 


Blade 

Reference 

Reference 

Slotted 


An  example  of  scaled  data  output  by  "ACQUIRE"  for  a 
surface  pressure  scan  is  given  in  Table  Bll.  The  associated 
table  of  pressure  coefficients  calculated  by  "CALC"  is  listed 
in  Table  B12. 
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TABLE  B6 


EXAMPLE  RAW  DATA  FILE  PRINTOUT 


«  •  »  •  1 1 

PRORf^ 

RflU  Dflift 

FILE 

L-04HnY7BnU 

SCON 

PROBE 

POSIT 

1 

2 

3 

4 

5 

1 

0.00 

-1.070E-05 

-1.120E-05 

1 .2596-03 

-7.3146-04 

9.6GCE-04 

2 

.10 

-1. I20E-0S 

-  1.0606-05 

1.2556-03 

-7.2946-04 

9.G37E-04 

3 

.20 

-e.400E-0C 

-0.600E-06 

1.2506-03 

-7.2BCE-04 

8.6786-04 

4 

.30 

-9.e00E-0G 

-9.400E-0B 

1. 2576-03 

-7. 3386-01 

9. 7266-04 

5 

.40 

-  1 . 340E  -05 

-1 .2206.  95 

1. 2516-03 

-7.2886-04 

9.7306.  04 

E 

.50 

-I.3O0E-05 

-I.3G0E-05 

1 .2506-03 

-7.3356-04 

9.8386 -04 

7 

.60 

-1 . IC0E-05 

-1.3006  05 

1.2556-03 

-7.7846-04 

9.9776-04 

8 

.70 

-1  .  320E-05 

-1. 3206-05 

1.7506-03 

-7. 34GE-04 

9.9026-04 

9 

.80 

-1.7206-05 

-1.2406-05 

1.2586-03 

-7.3506-04 

9.9186  04 

10 

.90 

-  1 . 160E-O5 

-1.1806-05 

1.2576-03 

-7. 3276-04 

9.9G2E-04 

1  1 

*  . 

'.  180E-05 

-1.IC0C-05 

1 .2546  03 

-7. 3276' 04 

9. 9606  -  04 

12 

1  .  10 

-3.400C-0G 

-4.0006-06 

1 .2586  03 

-7.3546-04 

1.0016-03 

1  3 

1.70 

-  1 .240E-05 

-1 . 1206-05 

1.2586-03 

-7.3926-04 

1.0106-03 

14 

1.30 

-  1 .0006-05 

-1 .0006-05 

1.2606-03 

“7.3ME-©4 

1 .0176-03 

15 

1.40 

-9.B00E-0G 

-  1  .080f  -05 

1.2616-03 

-7.3426-04 

1.0186-03 

IG 

1.50 

-7.400E -0G 

-6.8006-06 

1  . 25GE  03 

-7.3786-04 

1.0166-03 

17 

1  .G0 

-9.200E-0G 

-9.000E-0C 

1.2676-03 

-7.3G4E-04 

1.0346  03 

18 

1 .70 

-8.400E-OG 

-7.0006-06 

l.2filE-C3 

-7.3106-04 

1.0376-03 

19 

1 . 80 

-1 .200E-0C 

-1.4006- 0C 

1.2616-03 

-7. 3706-04 

1.0296-03 

20 

1.90 

5. G00E-0S 

-5.8006-06 

1.7  536-03 

-7.  31506-04 

1.0336-03 

2  1 

2.00 

-2.000E-0G 

-2.0006-07 

1.7626-03 

-7.3506-04 

1 .03/6-03 

22 

2.  10 

-  1 .000E-0S 

-1.0206-05 

1 .2536-03 

-  7.  3636-04 

1 .0306-03 

23 

2.20 

- 1.340C-05 

-1.2006- 05 

1.7556-03 

-7.3306.  04 

1 .0736-03 

24 

2.30 

-1 .0206-05 

-1.0406-05 

1.2586-03 

-7. 3146-04 

1.0266-03 

25 

2.40 

-  1.2806-05 

-1.1206  -  05 

1.2576-03 

-7.3326-04 

1 .0276-03 

26 

^  50 

-  .  120E-05 

-  1 .2006-05 

1 .7566  03 

-7.3176-04 

1.0211; -03 

27 

•.60 

-1.  120F-05 

-1.270F-05 

1.2556-03 

-7.4176-04 

1.0266.-03 

28 

I.ID 

-1.400E-05 

-1.GO06  05 

1.2546-03 

-7,3906-04 

1.0326-03 

29 

2.80 

-1.0O0E-05 

-1  .  1206-05 

1.2506-03 

-8.0376-  04 

1.0356-03 

30 

2.90 

-1.3206-05 

-1 .  5206  -  05 

1.2546-03 

-8.07GE-04 

1 .0256-03 

31 

3.00 

-I.  170E-05 

-1.200-6-05 

1 .25116,  03 

-8. 036-6  •  04 

1  .0346-03 

SCON 

6 

7 

8 

9 

10 

1 1 

1 

-8.  3776-04 

-8.1626-04 

-7.7346-04 

-9.5nB6-04 

1 .0776  -  03 

-7.7046-04 

2 

-8.38G6.  04 

-8.  3966  -04 

-7.7206-04 

-9.6046-04 

1.0796-03 

-7. 1786 -01 

3 

-0. 3R6E-04 

-8.3456-04 

-7.7376-04 

-9.6446-04 

1.0736-03 

-7. IBGE-04 

4 

-8. 3466-04 

-8. 3576-04 

-7.6046-04 

-9.6776-04 

1 .0766-03 

-7.7186-04 

5 

-8.3606-04 

-8.  3806  04 

-7.6386-04 

-9.6766-04 

1.0G0E-03 

-7. 1876-04 

6 

-8.  3866-04 

-0.3846-04 

-7.656:6  -  04 

-9.8746-04 

1.0786-03 

-7.7386-04 

7 

-  8  .  30156  -  04 

-8. 3586-04 

-7,6366-04 

-9.7406-04 

1.0746-03 

-7.7526-04 

8 

-8.  3786-04 

-8.  3tW-04 

-7.6106-04 

-9.7876-04 

1 .0/56-03 

-7.2406-04 

9 

-8. 3906-04 

-8. 3856-04 

-7.5046-04 

-9.73B6-04 

1.07  36  -  03 

-7. 2686-04 

10 

-  8 . 4066.  -  04 

-8.3746-04 

-7.6476-04 

-9.7446-04 

1.07G6-03 

-7.2386  -04 

1  1 

-8.3646-04 

-8. 3506-04 

-7.6346-04 

-9.7106-04 

1.0/16-03 

-7.2046-04 

12 

-8.  3  /76-01 

-8.3486-04 

-7. 6766 -04 

-9.66.86  -04 

1.0756-0.3 

-7.7306-04 

13 

-8.1066-04 

-8.4026-04 

-7,7276-04 

-9.7006-04 

1.0816-03 

-7.2726-04 

14 

-8. 3386-04 

-8.3''06  01 

-7.B'’0'’  01 

3.6176  04 

1.0876-03 

-7.2466-04 

15 

-8.3746-04 

-8.3826-04 

-7.7666-04 

-9.6186-04 

I .0886-03 

-7.2826-04 

16 

-8. 3586-04 

-0. 3746-04 

-7. 7586 -04 

-9.636  6.-04 

1.0846-03 

-7.2646-04 

17 

-8.3976-04 

-0. 3706 -04 

-  7.74KE-04 

-9.6706-04 

I .0846-03 

-7.72G6-04 

18 

-B.  3.376  -04 

-8.37  46-04 

-7.7186  04 

-9.5506-04 

1.0091-03 

-7.2786  04 

19 

-8.. 1526 -04 

-0. 3566-04 

-7.7306-04 

-9.CIGE  04 

1.0/96-03 

-7. 1806-04 

20 

-8.  3446-04 

-8.3346-04 

-7.736:i  04 

-9. 4986.-04 

1.0836-03 

-7.3886-04 

21 

-8.1756-04 

-8. 3546-04 

-7.5946-04 

-9.6176-04 

1.0076-03 

-7  .  2  326  -  04 

22 

-0.  3446-04 

-8.  3406  -04 

-7.6566-04 

-9.6146 -04 

1 .0706-03 

-7.2126  04 

23 

-8. 3056-04 

-8. 28156  -  04 

-7.6286-04 

-9.6066-04 

1.0776-03 

-7.2206-04 

24 

-8. 3006  -04 

-8.2886-04 

-7.5606-04 

-9.6746-04 

1.0796-03 

-7.1976-04 

25 

-B.  3176-04 

-8.2966-04 

-  7. 5126 -r-. 

9.C7CC-04 

1.0756-03 

-7.2216-04 

76 

-0. •976-01 

-9.rG7r.-04 

-7.4076  04 

-9.6976-04 

1 .0756  -  03 

-7. 1926 -01 

27 

-8.  1*26-04 

-8. 3406-04 

-7,5106-04 

9.7586-04 

1.0006-03 

-7.74RE-04 

86 


TABLE  B6  (CONTINUED) 


28 

-8.79Gt  -04 

-8.27Gf -04 

-7.44Gf -04 

-9.7128-04 

1. 0758.-03 

-7.  1908  -  04 

Z9 

30 

-8.7940-04 

-8.2B0fc-04 

-8. 3002-04 
-8.268E-04 

-7.4301  04 
-7.48(5E-04 

-9.78ZF-04 

-9.7548-01 

1.0778-03 

1 .0788-03 

-7.24G8-04 

-7.27GE-04 

31 

-8. 340E-04 

-8.290F-04 

-7.4Ctif -04 

-9.r/G[  -04 

1.0738-03 

-7. 1978-04 

SCON 

12 

13 

14 

ynuciifiN 

TLrtf’CtinN 

ATMOS 

VOL  1858 

VOLTAGE 

PRESSURE 

! 

-I.800E-0S 

-8.(»00E-0G 

-I.040E-05 

4.8518-02 

1.2218-03 

40G.63 

2 

-4.8002-00 

-9.200t-0G 

-I.ZfiOf  -05 

4.8518-02 

1 .2318-03 

40G.G3 

3 

'4. 

-9.400E-06 

-  1 .0G0C-05 

4.8498-02 

1.24 /£-03 

40G.G3 

4 

-5.800E.-0D 

-1 . IG0E-0S 

-1.2801  -05 

4  8508  -  07 

1.Z5G8-03 

40C1.  G3 

5 

-7.0®0C-®G 

-).2G0E-05 

-  1 .500E-05 

4.8418-02 

1.2578-03 

40G.S3 

6 

-5.800!  -00 

-8.400E-0C 

-1.100! -05 

4. 8358-07 

1.2518-03 

400. G3 

7 

-5.400E-0S 

-1.200E-05 

-1.4200-05 

4. 8388-02 

1 .2508  03 

40G.G3 

0 

-7. (MCE 

-1 .300r  05 

-1.4G0E-05 

4.8308-02 

1.2578-03 

40G.G3 

9 

-0.Rwr-C6 

-1, J80E-0S 

-  1 .  CO0i;  05 

4.8328-02 

1.2546-03 

40E.G3 

1<5 

- G . 8001  -  00 

-  1 .2402-05 

-1 .340E-05 

4.B3/E  07 

1 .2598-03 

400. G3 

1  t 

■  8. 200E-0G 

-  1.0808-05 

-  1 . I40E  05 

4.8.108-07 

1.2B4E  03 

40H.G3 

1? 

-G. 400E -00 

-  1 . I80E-05 

-l.340f  v>Ej 

4.8578-07 

1.27GE-03 

40G.G3 

13 

- 1  .antjf: 

-  1 .  1Z(^r-<55 

-l.320t  05 

4.8538-02 

1 .2758-03 

14 

-3.4000-00 

- 1  -0!) 

-  1 . 200!  '  05 

4.8471  -02 

1.2758-03 

400. B3 

15 

-  I  .  4O0E-OG 

-G.G00E-0G 

-1. 1C0E  05 

4.8478-  02 

1 .27GE  03 

400. G3 

10 

-  3 . 0021!  0G 

-9.0008-00 

-1. IG0E  05 

4. 04 PA -02 

! .2818-03 

4«r..G3 

17 

-3.800f-0G 

-8.200C .05 

-1.0000 -05 

4.8508-02 

1.2838-03 

40G.B3 

1 0 

-8.0002-07 

-5.200f -0G 

-7.0«0b  00 

4.8498  0? 

1.ZB8F-03 

400.  G3 

19 

-G.CO0E-0G 

-  1 . 0i;0E  -  05 

-  1 .240E-05 

4.8348-02 

1. 5078-03 

TC6.G3 

20 

1 .000! -00 

4.000!  <»’ 

-8.0008-07 

4.8338-07 

1.7998-03 

40U.G3 

21 

-G.e00E-0G 

-I.2G0E-O5 

-1.3C0E-05 

4.8.508-02 

1.29  7C-03 

40b'.  G3 

2? 

-  7 . 000E -  00 

-l.3Wf-05 

-  1 .  G00! -  05 

4.8388-02 

1.7978-03 

400. C3 

23 

-7.4vWG-0G 

-I.3S0E-05 

-I.380E-05 

4.8378-02 

1.3118-03 

40G.G3 

24 

-7.80^2<F-00 

-1.7  0^1-  -  05 

- 1 . 540!  -  05 

4.B3G8-0? 

1 . 3 1 58  -  03 

400. R3 

25 

-8. 200E -0G 

-  1 .  2f)0E-05 

-1.340E'O5 

4.8348-02 

1.3198-03 

400.53 

20 

00!,-0r. 

-1.280! -05 

-1.420!  05 

4.8348-07 

1.3748-03 

400.  G.I 

27 

-9.200r.0G 

-1.4000-05 

-1.780C  05 

4.0108-02 

1.3318-03 

400.53 

28 

-8.800t:  00 

-1.4401-05 

-  1 . 4C0r  05 

4.8351  -02 

1. 3798-03 

40C.53 

29 

-5.2C0E-0B 

-  1 . 3O0E.  05 

-  1 . 4508 • 05 

4.8318-02 

I .3308-03 

400. G 3 

3® 

-5.400!  .00 

- 1 .240! -05 

-1 .470E  05 

4.0748-0? 

1 . 33«!  -03 

400,03 

31 

• G . 000e  ■  00 

-  1 . 3000-05 

-  1 . 5008  -  05 

4.8278-02 

1 . 3338-03 

40G.B3 
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TABLE  B7 


EXAMPLE  SCALED  DATA  FILE  PRINTOUT 


RIOBF.  SCftlED  [Win  FlLf  L-«4Hni7SCl 


DCnN 

P1I0UF 

1 

2 

3 

4 

5 

POSIT 

I 

0.00 

-i.070r  01 

-  1 . 0O0E  02 

1 . 2691*01 

-7.7121*00 

9.7681 *00 

2 

.10 

- 1 . 120e-0i 

S. 0006-03 

1. 2666*01 

-7. 1826 100 

9.8046*00 

3 

.70 

-B.400E-02 

-2.000E-03 

1 .75flF^0* 

-7. 1826*00 

'1.7C7H00 

4 

.30 

-9.800F-02 

4. 0006 -03 

1.2626 101 

-7.7406*00 

9,8246*00 

5 

.40 

-1.340F-0I 

1.200E  07 

1 .2B4F4ei 

-7. 1546*00 

9.9246*00 

E 

.50 

-!  .300E-0I 

2.00OF-03 

1.7726101 

-7. 1986 100 

9.9  766*00 

7 

.60 

-1 . lBOE-01 

-1 .4006-07 

1 .Z6Cf  *01 

-7. 1681*00 

1.0041 .01 

B 

.  20 

-  1 .320e-0i 

0.0006  >00 

1.2646*01 

-7.2146*00 

1.00  36*01 

9 

.80 

-I.220E-0I 

-2.0386-03 

1.2701*01 

-7.2786*00 

1.0046*01 

10 

.90 

-1 . 1G0E-0I 

-2.0006-03 

t .ZGBE  »9I 

-7.2006*00 

1.0086*01 

1  1 

1 .00 

-1. tB0F  01 

2 . 00OF ■ 03 

1.2606*01 

-7.7046*00 

1 .0081 >01 

12 

1 .  10 

-3.400t-02 

-B.«nX3E-03 

1.26/6*01 

-7. 3206*00 

1.0046*01 

13 

1.20 

-1 .240f-01 

1 .20OE  02 

1 .27IE 101 

-7.2681*00 

1 .0276101 

H 

1 . 30 

-1 .0O0E-01 

-8.0006  03 

l.270Et0l 

-7.2146*00 

1.0236 101 

15 

1.40 

-9.G0OE-O2 

-1 .200E  07 

1.2716*01 

-7.2406*00 

1 .0276101 

16 

I.  <5® 

-  7.  4006  -02 

G. 0006  03 

).2G46iei 

-7.2546 100 

1.0246*01 

17 

1.60 

-9.20V1E  07 

-G.000F  -01 

1.2716*01 

-7.2776*00 

1.0436*01 

IB 

1.70 

-e.4e0E  02 

1.4006-02 

1  .  ;r,qE  t0i 

-7.22BE 

1.0416*01 

19 

1 .00 

-1 .70OE-02 

-2.0001  03 

1 .2636*01 

-7.3086*00 

1 .030E*01 

20 

1.90 

-S.GO0E-07 

-  2 . 0006 ■ 03 

1.2596 101 

-7.3046100 

1.0396 101 

21 

2.00 

-7.00-Z-E  02 

1.8006-02 

1.2646*01 

-7.3301*00 

1.0396*01 

22 

2.  10 

-1.000E  01 

-2.0006  03 

1  .  27.36*01 

-7.2086  100 

1 . 0106  *0 1 

2  3 

2.20 

-1 .340E-0I 

1.400E-07 

1.2681101 

-7.I9BIIOO 

1.0376*01 

24 

2.30 

- t .0206-01 

-2 .®03c 

1 .2696101 

-7.2126*00 

1 .031.1  *01 

25 

7.40 

-1 .2n0E-01 

1 .  CO0E  -  02 

1. 2056 *01 

-7.704E  *00 

1 .0.356*01 

26 

2  50 

-1. I20E-0I 

-8.000c  03 

1 .  2I57L  101 

-7.2001  103 

1.0376*01 

27 

2.50 

-1.  I20E-0I 

-1  .®0v)6-02 

1 .76GF  *01 

-7.3006  100 

1.0376*01 

28 

2.70 

-1 .400f  -01 

-2. 0006-02 

1.2086*01 

-7.2501*00 

1 .0461  101 

29 

2.80 

- 1 . 0806-01 

-4.0006-03 

1 .2686 101 

-7.9211.  *00 

1.0456101 

30 

2.90 

-I.  370E-01 

to® 

1 .26/6.101 

-7.9441*03 

1,0386101 

31 

3.00 

-  1 . t20f  01 

-8.O0«6'03 

1.2696*01 

-7.9846*00 

I.04SC  >01 

SCAN 

6 

7 

0 

n 

10  1 

1  1 

1 

-8.2701  100 

-8.2G0C 100 

-7.G3ZI  i0»7 

-9. 4006 103 

1 .08/6101 

7. 

2 

-8.2  246  >00 

■8.231Et00 

-7.G0BC100 

•9.4926100 

1.0906*01 

•7.0506*00 

3 

-8.282F.<O0 

-8.2G7E100 

-7.64Ct 

-9.5001 100 

1.0076*01 

7. 1021 *00 

4 

-8.749E 100 

-8.254E 100 

-7.5BGEI00 

-9.S24FI00 

1 .0856*01 

■2. 1206*00 

5 

-O.  226H03 

-8.24GE10O 

-7.5046*00 

-9.5421 108 

1  .0816*01 

2.04  86*03 

B 

-8.248E100 

-0.746E 100 

-7.5IH6I00 

-9.6006 100 

1 .0926 101 

'7.1  C®l'. 

7 

-8.270H00 

-8.257E10O 

-7.5706100 

-9.6241*00 

1.0351 101 

7.  1  3DI  tOC 

8 

-0.24GC 100 

-8.23GC100 

-7. 4786 100 

-9.6506*00 

1.0806*01 

2.  1086*00 

9 

-8.2G8F>0O 

-8.2G4EtOO 

-7.5G2F 100 

-9.6166*00 

1.0856*01 

7.1461*00 

10 

-8. 2906100 

-B.2SOE100 

-7.S2GEI00 

-9.6286*00 

1.0806 101 

•7. 1726*00 

1  1 

-e.246tl00 

-e.237Et00 

-7.5166100 

-9.59/6*00 

1 .0331  *01 

7. OGGI  *00 

12 

8.338EI00 

-8.3MEIO0 

-  7.G42E1O0 

-9.6.146  *00 

1 .0/86*01 

7. 1966*00 

13 

-0.2e2f 100 

-0. 2786100 

-7.5986100 

-9.57*;C*0O 

1.0931  *01  - 

7.  1486  *  00 

14 

-8.238F100 

-0.2406 100 

-7.590E  100 

-9.5126*00 

1.09  26  *  01  - 

7.  1466*00 

15 

-8.278LI00 

-8.286'  100 

-7.G201  too 

-9.5776*00 

1.0376*01  - 

7.  1BGI.  *00 

IF 

-8.284C 100 

-8.300E1O0 

-7.6846*80 

-9.56/6*00 

I.091EI0I  - 

7. 1906*00 

17 

-8. 300t  too 

-fl.27BE  100 

-7.6546*00 

-9.5701 

1.0936101  - 

7.  I346I0C 

18 

-8.2186100 

-8.2406100 

-7.G346  *00 

-9.4006*00 

1.09116101  - 

7.  1946*00 

19 

-n.  340C100 

-9.3446100 

-7.7266*00 

-9.6046*00 

1.0306*01  - 

7. 1761  *00 

20 

-8.20I)E100 

3.Z2OE1O0 

-7. GOOF  *00 

-9.4426*00 

1.0946*01  - 

7.3326*00 

21 

-8. 35CriO0 

-9.334E103 

-7.6746*00 

-9.5976*00 

1.0841101  - 

7  •»  «oi<) 

77 

-8 

U.  i'nOt  >00 

-  /  .  . 551.6  ttW 

I.GJbhtOI  - 

7.  1126*00 

23 

-8. I72F 100 

-0. 1526100 

-7.4346*00 

-9.4776*00 

1.0906*01  - 

7.0061*00 

24 

-8. I98E 100 

-8.1066 100 

-7. 453E  >C0 

9.5726*00 

1.0836101  ■ 

7.0906*00 

25 

-0. 1B4E  too 

-8. 1GR6I03 

-7,4041*00 

•9.5471 *00 

1. 0881  101  - 

7.0961*00 

26 

-8. lOOf 100 

-8.  1  206  100 

-7.3  20EI00 

-9.5306*00 

1.0006*01  - 

7.0806  *00 

2/ 

0.777)1  100 

-8.2  Ib'E  100 

-7.  3981  '00 

-9.C4GE  tec 

1.0916*01  - 

7.  1341  100 

28 

-8. 15GE 100 

-8.  1  JF.6I0O 

-7.  J01.E  100 

-9.5226*00 

1.0896*01  • 

7.0501  100 

M 


88 


TABLE  B7  (CONTINUED) 


7.S 

i® 

'M 

-0. 18GLI®C 
-8. 

-0. 2Z8£  ^e)C 

-B.  ISZEiBEi 
-8. 1 JBE400 
-8.  l7eH00 

-7. 372f 100 
-7. 3S4E  IC>0 
-7.354E10C 

-9.GV4E<e0 
9.B72E 100 
-9.Gf.4Fl0O 

1 .0801.101 

1 .0915101 

1 .084E101 

-7. 138( I®® 

-7.0»®f  ^0O 

'jcnN 

12 

13 

14 

YftU 

TLOP 

ninos 

DEG 

IR) 

I'HESS 

1 

0.  'IBvJr  02 

2.200E-02 

-2.0005  03 

4.85IF10I 

S. 357E102 

406.63 

z 

B.400L-O2 

Z.BBBf -02 

-1.4001-02 

4. B5IE40I 

5. 3f  105  102 

406. G3 

3 

4  .  ®CH)E  - »? 

- 1  .(W0t-02 

-2.200E-02 

4. B49r  t0| 

S.  JBBE  102 

406.63 

4 

4.000E-07 

-  1 . 808F  0? 

-3.0001-02 

4.8505101 

S.  aCBF  102 

400.63 

S 

G.400E-  07 

B.O00E  03 

-  1 .  C00E  -  07 

4.Q4IFiCI 

5. JKnE102 

406.63 

E 

8.000E-07 

5.4001  02 

2 .  BCOE  02 

4.83GF  101 

5.3GVL10Z 

406.63 

7 

E.200E-02 

-4.OC0E-03 

-2.B00C-02 

4.B38E10I 

5.3i:B£t0Z 

406.63 

3 

B.Z00F-0/ 

-4.000E  03 

-  1 . 400E  -  02 

4.8381101 

5.3695 102 

406. 63 

9 

3.H00b'  02 

-1.Ge0£-02 

-4.4i53F-02 

4.83VE 101 

5..368F102 

406.63 

IB 

4.00(?l  0? 

-O.003r -03 

-  1  .  O0GL  07 

4.83  7F  101 

5.3695102 

4fffi.n3 

1  1 

3.BGOt-02 

1 .0005-02 

4.C00E-03 

4. 830, E  101 

5.371E10Z 

406.63 

12 

-  3 . 0001: ' 

-0.4B0t-02 

-1.0002-01 

4.BS?F<®t 

5.375E10? 

406.63 

1  3 

1 .60OC  02 

I .20OE-02 

-  8 . O00E -  03 

4.8'.1E10I 

S.  3  72,5102 

<06.63 

1  4 

B.BBOr,  02 

-6.000E-03 

-  2 . 000E  07 

4. 847E10I 

5. 3755*02 

406.63 

15 

8.200E-02 

3.0BOE -02 

-  S.AZTil -idl 

4.84  /E  101 

5.3/55102 

406.63 

tG 

4 .4001  (5/ 

-  I . B0OI  02 

-4.Z0?'  07 

4.n4sr  t0i 

5.3775  1  07 

406.1:3 

1  7 

40;^r  - 152 

1 .O«Ot-07 

- n . soor ' 03 

4 . » 0 1 

5.37!IE  102 

406.63 

10 

7.6002-07 

3.700f.  -  02 

1 . 4001  07 

4.O45i:i0l 

5.  3  235107 

4  OG .  n  jj 

ID 

-4.C00E-02 

-9.4B0E-02 

-t. 1201  01 

4.8345 101 

5.  3845102 

406.63 

?0 

B.G00E-07 

G.030I  -02 

4 . OBOE  -  07 

4.Bi.5f  101 

5.  3035102 

405.63 

Zl 

-  4  .  SJ'BE  ■  02 

-  1 .0B0E-0I 

-  1 . IR0E  01 

4.831-5101 

5.3825*02 

406.63 

ZZ 

.3.000E-07 

-3.0e0E'07 

-6.0002-07 

4.83UC10I 

5.3825*0? 

406. G3 

23 

B .  0OOE  -  07 

-4.000!.  03 

-4.0002-03 

4.B37FIOI 

5.38  25102 

406.61 

?4 

2.  ICViE  -02 

-  1.8005-07 

-S.  ZeOE-  02 

4.B.3BE10I 

5.3805102 

106.63 

25 

4.B00E-02 

0.033E  <00 

-6.0C0F-03 

4.834L10I 

5.330E 102 

406.63 

2E 

5.  PWU  *02 

-  I . GC0E -  02 

-3.0005-02 

4.834C 101 

5.  3315*0? 

406.63 

27 

2  .  "  .‘C  07 

-3.4021-07 

-C.CeOf  -07 

4.831.1  101 

5.334510? 

40-6.63 

70 

5.7C0E  02 

-4. -JOBE -03 

-G.OO0E-03 

4.835C10I 

5.3935*02 

406.63 

73 

5.B00E -02 

-2.7002-02 

-3.8002  02 

4.B3ir 101 

5.3945 102 

406.63 

30 

7 .  l'«eE  -  07 

8.0C0E  03 

-I  .0005  02 

4.8245 101 

5.3365*02 

406.63 

31 

4  .  E;0O[  -  07 

-2.400E-07 

-4.4001-02 

4.872E10I 

5.33'.4  10? 

405.63 

TABLE  B8 


REFERENCE  BLADE  REDUCED  DATA  FILE  PRINTOUT — UPSTREAM 


FILE  L  ciMnwcni.c 


scnN 

fpfi 

t’oni  r 

QFT6 

GOMnn 

PHI 

Xvel 

Xref 

t 

0.00 

4.. 33 IE  07 

1 .07OE  0! 

-7.  J7IE-03 

1 

r03F-0l 

9. 3516-07 

z 

.  10 

4.i47E-0? 

1 .047E-0t 

8.  104E-03 

} 

1046-0) 

9.3406  07 

3 

.70 

4.33IF-0i 

1.06OE  01 

-9.  13IE  03 

1 

)036  0) 

3.3116-07 

4 

..10 

4.  IflOE  07 

1 .077F -01 

-9.7716-03 

1 

)046-O) 

9.1756-07 

Tj 

4.360E-07 

t . t77£  01 

-1 .7506  0? 

I 

)06L  0) 

g.  337r  -07 

R 

.50 

4. 374E-07 

1 .1901  01 

-  1 .67.36  07 

1 

)07E-0) 

9. 3596-07 

7 

.  r.0 

4.3O7E-07 

t . 1 50t  01 

-1.3086-07 

t 

) )0L  0) 

9.3406  07 

0 

.70 

4. 3066 -07 

1 . 199E-0I 

-l.ei5£-07 

1 

)09E-0) 

9. 3106 -07 

n 

.fl0 

4.3O3E-07 

1  .  1776  01 

-1 .7446-07 

1 

)  1 06  -  0 ) 

9.3646  07 

!(9 

.H0 

4.404E-0? 

t . 1456-01 

-1..177r-07 

1 

1  )76  0) 

9. 3486  07 

1 1 

1  .00 

4. 3966  07 

1  .  1336-01 

-1. 3061 -07 

1 

)  )  )6-0) 

9. 3306  -07 

tz 

1.10 

4./I0OE  0? 

l.0l‘4t  01 

-  1 .0316-07 

1 

) )3E  0) 

9. 37 IF  07 

!  3 

1  .  70 

4.4  3'JE  0? 

1 .06'lt  01 

-9. 4476-03 

1 

1176  01 

9 . 35116  07 

14 

1  .  .10 

4.4JIE -07 

l.04ir  01 

-7.80156  -03 

1 

)  )l.t  -0) 

9.  1M1  -07 

1!, 

1  .  flO 

4 . 4506-07 

O.OnZE  07 

5.644?  01 

1 

1  )9L  0) 

9.35116.  07 

ir: 

1  .  S0 

4.4iriE-0? 

I.ai4t  01 

6..I04f  01 

1 

1196  0) 

9.  nor  07 

17 

1 .60 

4.4001  02 

1 .0C16  01 

-6..GIJ76  01 

! 

1746  0) 

9.35  71  07 

10 

1.70 

4.4  77f -07 

9.07  36  07 

- 4.G51E-01 

I 

1716 -0) 

9 . 35 1 1  -  07 

13 

1.00 

4. 4776-07 

1.0076  01 

-C.0I  16  01 

1 

1776  01 

9.37VL  07 

1.00 

4.4  7  7E-07 

9 . 4  3  7E  ■  07 

-7.55)6- 03 

I 

1746-01 

9. 3176  •  07 

21 

7  .00 

4.497E-07 

1.074E-01 

-6.90)6-03 

! 

1756-01 

9.3316  07 

n 

7.  10 

4 . 4  706  •  0? 

1 .050E-0I 

-0.3776  -03 

1 

17)1-01 

0.  loor-  07 

■’  70 

4.4446  0/ 

1.067F  01 

-9. 3'. 76  01 

1 

1186 -01 

9.3481  07 

74 

10 

4  .  440E  -  0? 

1.1301-01 

-  )  .33  IF  -07 

I 

1  tor- 01 

9.  .1406  07 

ZS 

7. /to 

4.4471-07 

1. 1546  0! 

-  )  .  4  )  6)  ■  02 

I 

1  1156  0) 

0.3.-146  07 

?G 

7.50 

4.4J7E-07 

1.1956  01 

-).64,T-0Z 

I 

1  1 56  e  1 

9.34,)r  07 

71 

7.60 

4 .460c'-07 

1. 7001.-01 

-).7)91  0? 

t 

1106  01 

9. 3401  -07 

?H 

7.  70 

4. 4i:0K  -07 

1. 7106:  01 

-  ).  27 1 6  -  07 

I 

1  106  01 

9.  .llVf  07 

73 

7 . 00 

4.470E  07 

1.7676-01 

-7.0)61-07 

t 

1196-01 

D.  349F.  07 

7.00 

4 . 4  4  IF ■  0? 

1.7?4f  01 

-  1 .801.6 -07 

1 

1  1116-01 

9.:.M7i:-07 

31 

3.00 

4.4776  07 

1.7391  01 

-1.0066  07 

1 

1196  0) 

9  .  .15 1 6  -  07 

ccnw 

VkI 

Vt  pF 

0 

0>  ef 

nncM 

YHl) 

itrr; 

1 

7.  7906(07 

7  .  l/7t  102 

1 . /706 101 

1  .  7'. '56  1 0 1 

7. 4076  01 

4.ur.r;n®i 

2 

7.f(0.1(  (07 

7. 170f 107 

1.V24f.  101 

1  .76.,)F/0I 

7.40',t  01 

.1 

7  .  OFOI  (07 

7.3546 107 

1.7196 101 

1 .74', 6  101 

7.43IF-01 

VI 

7 . 0011.  (07 

7 . 3506 1 07 

1.7771 101 

1.2486101 

2.4816  01 

4.nGL.v  ici 

S 

7 . 8091 107 

7.3.106  107 

1 . 7706 101 

1.2506  101 

2. 4806  01 

i.fMur 

n 

7.81 U 107 

2. 3776107 

1  .7  176101 

1.2506101 

2.4306  01 

4.n4U  101 

7 

7 .8106107 

7.3776(02 

1.7416 101 

1 .7';  IF  101 

2.4'J7E-0I 

1 .  iM.ir  i®i 

0 

7.81561 07 

7 . 3706 1 07 

1  .73  76  1  01 

1 .  7501  101 

2.4941 -01 

4.0431  t®I 

9 

7. 8706 107 

7. 3  26.6  107 

1.  7416101 

1 .7556  101 

2.491'E  01 

1 .  FMZC 

I® 

7.8711  107 

7 .3/4!  107 

1.74/6101 

1 .75SF 101 

7.5011-01 

4.n4ZL*®t 

I  1 

7 . 0716107 

7.3/71.107 

1,7446 101 

1.7576101 

7.4'J9r  01 

4.  n4  IF  t®  1 

tz 

7.0701  107 

7  .  Ill'll  107 

1 .7516101 

1 .7491  101 

2.5016  01 

4.nh7Lt«l 

13 

7 . nior 107 

7. 3/1)6107 

1 . 7016*01 

1.75/6  101 

2. 5146  01 

4.M',IJI  tCI 

14 

7.03/1  (07 

2 . 17  76  1 07 

1.7571 101 

1 .751,1  101 

2. 5176-01 

4.0b>'ti®t 

IG 

7.8456107 

7.1/36107 

1  .  7  771  101 

1.75/6  101 

2.Snr  01 

4. *01 

in 

7 . 8411  10/ 

2. 3216  102 

1 .7l.'.lf.  101 

1 ,7506  101 

2.51  /6  01 

4 . nsoi  *o: 

17 

7.n'‘,3ri07 

2.1  706  107 

1 .70116  101 

1 .75.’6I01 

2.5-‘O6-0l 

4.0S’.f  lOt 

10 

7.8541 107 

7.37/1  107 

1 .7071 101 

1 ,75!,ri0l 

2.5/56  01 

101 

n 

Z.OOH  107 

2 . 1771  107 

1.7016 101 

1 .7406 101 

7.;,7'iE  01 

4.G3nC  *01 

z® 

7 .8501  107 

7  .  351)1  102 

1 .71151  101 

1 .7451 101 

7.57tir  01 

4.83or  to: 

7  1 

7.0501  >07 

7.  3  /16  107 

1 .  7001  101 

1.2506101 

7.5116  01 

4. mu  *01 

90 


TABLE  B8  (CONTINUED) 


zz 

Z.RbZE i®Z 

Z.38ZH02 

1 .779E^01 

1.7991 101 

Z.SZ4t-0l 

4.8431101 

Z-O-llEFCZ 

7 . 3/nr  ici* 

1 . 7C7t  101 

1  .Z8SH0i 

7.5151  01 

4.8421101 

2^ 

Z.HlaE iBZ 

Z.  3791 107 

1 .  7i;r.r.  lOi 

I.Zfc.LiOI 

Z. 5151  01 

1.B4irtOI 

2\y 

Z.B''IE'OZ 

Z.  3  781107 

\  .7f.3f  <01 

I.ZGtElOt 

Z.bIZt-OI 

4.039110! 

7B 

Z.BJGf (87 

Z.  3. '81107 

J . /GTE  »0I 

1 .  ZG.^E  tCI 

7.5091-01 

4.8391 101 

7  / 

Z.84r.t  10? 

2.3  7UH0Z 

!  .7GRr  lOl 

1 .7521101 

7.5181-01 

4.8411 101 

78 

Z.81i;r  lOZ 

Z.  3  791 107 

1  .  /GHE  <01 

1 . 7541 101 

2.5181  01 

4. 8-101101 

79 

Z  .n't 81  t®7 

Z  .  3001  1 07 

!  .  7  20E  1 0  i 

1  .ZS'if  101 

Z.5l/t  01 

4.8381*01 

3® 

? .83tf 1®? 

7.3  791102 

1 .7811 101 

1 .7i.3r  »ci 

7  .Slot  -01 

4.UZ8rt01 

31 

7 . 049^ 

2.38lt10Z 

t.7/?t<01 

1.7551*01 

Z.5IBt  -01 

4.&Z7Et®J 

GCAN 

Prer  Pl/Q.  cf 

U 

Ire 

\ 

Z.3Z9r-0l 

1  -'/<?riE  10® 

I . 1 7/f !0C 

2 

Z.Z83E  01 

I .ctcr 

!  .  t7Gt  too 

s 

Z.ZG7r-01 

1 .009C 100 

t  .  17  ?f  lOO 

n 

Z.Z4lt  01 

I  -  Cl ®£.  ICC 

1 . 1 77L 1 00 

s 

7 . I ?4r  0! 

1 .®:oc ic® 

1  .  (7f(L  iO(» 

G 

z.  r/gt-Bi 

1 .0101108 

1  .  I7i;r 

7 

7 . 08  ?E  0 1 

1  .CICf  K'^ 

1 . 1 0 1  f  1 0® 

« 

7.007K  01 

1 .ctcr  too 

1  .  I 0 1 1  100 

9 

z.  1 1'li:  01 

1 . 0 1  Bi:  1 .30 

! . t POP  <00 

Z  .  0  7  7t  0  1 

1 .  ®  1  or.  1  cc 

t . in?t  <oc 

1 1 

Z-.T'.'IC  01 

1 . 0  U)£  1 00 

1 . 1  a  11  100 

1  2 

Cl 

I  .  C 1  Cf  10® 

1 . 1  n  /I  1 0“ 

1  3 

1 .  a/wr  -01 

1 .0101 100 

I  .  18  71 100 

1  4 

1 .8rii..i:  01 

1 .0101  10C 

1 .  11)71  100 

IG 

1.9381.  01 

1 .0i',5ri00 

1 . 1901 100 

18 

I.9Z01  01 

1 .0101 100 

1.1971 100 

17 

1  .8M:-0I 

1 .0101100 

1.  in'.r  100 

t8 

1 .87  IE-  01 

1 .0101 100 

1 . 1941100 

n 

1  .  ll'.'JE-0l 

1.0101100 

1.  19  71100 

7® 

1  -  >1 

1  . 0 1 01. 1  00 

t .  root  '00 

Zl 

1 .  m:f.  01 

1 . 0 1  or  1 00 

1 . 1991 100 

ZZ 

1 .8871  01 

1 . 0  1  01  1  00 

1 . 1911 100 

7  3 

I.Oll.iE  01 

I .0101100 

t.  189110(3 

7A 

1  .e'Mi  ■  01 

1.0101100 

t . <00 

zr. 

1  .n3;)E  01 

1.0101 100 

1.  1901  iO(3 

zn 

I  .0/71  -Cl 

1  .0101  100 

1 .18/1  100 

77 

i.nizi  01 

1 .0101 1;30 

1  . 1911 100 

■ 

7  8 

1 .77';r  0! 

I  .  0 1  O'  1  ©0 

I  .  I9®[  too 

zn 

1.  7 /lit  01 

1.01011 00 

1 .  i9ir  *00 

3® 

I. 0731  0! 

1 .0101 I0C 

1  .  18111100 

3t 

1  .  VlJDt  Cl 

1 .ClOE 100 

1 .  1911100 

rN".tni>t.E  P.vriiniiKS 


Fi'Hvi; 

r 

i.77nL  es 


rnrivr,  rtwnv'j  xisli  nvj 

SJ7.0Z  9.317F  ®7 

FEnr'",  fmnvc; 

G. J3IC  tez 


VFFirnvf}  Qtjirnvr, 

Z.B.'bttCZ  K7S3E»®1 


HI.VN'JIII';  fJO 
7.  ZH'I  It 


91 


TABLE  B9 


REFERENCE  BLADE  REDUCED  DATA  FILE  PRINTOUT — DOWNSTREAM 


FILE  O-0IJUNCflLC 


scnN 

PRB 

POSIT 

BETA 

GAHMn 

PHI 

Xvel 

Xrcf 

1 

-3.00 

7.775E-07 

6.991E-07 

5.347E-03 

8.67BE-0Z 

9.3G7E-07 

i 

-7.90 

7.71 lE-07 

7.775E-07 

3.B90E-03 

8.G04E-07 

9. 340E-07 

3 

-7.70 

7.G97E-07 

7.  184E-07 

4.334E-03 

8.575E-07 

9. 343E-07 

4 

-7.G0 

7.E73E-07 

7. 378E-07 

3.5B7E-03 

0.544E-07 

9. 351E-07 

5 

-7.50 

7.G77E-07 

7.G75E-07 

7.04  3E-03 

8.470E-0Z 

9.3G1E-07 

G 

-7.40 

7.S54E-07 

7.GG1E-07 

I.870E-03 

B.353E-0Z 

9. 3I8E-0Z 

7 

-7.30 

7.483E-07 

7. 344E-07 

3.40IE-03 

B.738E-07 

9. 370E-07 

B 

-7.70 

7 .3S5E-07 

7.754E-07 

I.3I7E  03 

B.07BE  07 

9. 370E-07 

9 

-7.  10 

7.715E-07 

B. 341E-07 

-I.G38E-03 

7.793E-07 

9. 337E-07 

10 

-7.00 

7.044E-07 

e.770E-07 

-3.7G5E-03 

7.49BE-07 

9. 315E-07 

1  1 

-1.90 

1 .905E-07 

8.4G0E-07 

-7. 107E  03 

7.74GE-07 

9. 377E-07 

17 

-1.80 

1 .787E-07 

9.777E-07 

-G.7G1E-03 

7.014E-O7 

9. 33tE-07 

13 

-1.70 

1 .G40E-07 

fl.851E-07 

-4.075E-03 

G.735E-07 

9.30GE-07 

14 

-1.50 

1 .S57E-07 

B.7G5E-07 

-3.G5GE-03 

G.557E-07 

9. 307E  07 

1  5 

-1.50 

1 .4B4E-0? 

9.438E-07 

-7.774^^  03 

B.409E-07 

9. 370E-07 

IG 

-1.40 

1 .493E-07 

8.893E-07 

-4.3n5£-03 

B.431E-07 

9. 317E-07 

17 

-  '  10 

1 .530E-07 

8.477E-07 

-1 .BO0E-03 

G.51 IE-07 

9.315E-0Z 

18 

-1.70 

1 .G19E-07 

9.G7GE-07 

-0.I70E-03 

B.B91E-07 

9.370E-07 

19 

-1.10 

1 .764E-07 

B.795E-07 

-3.7855-03 

G.980E-07 

9. 374E-07 

70 

-1.00 

1.936E-07 

B.53GE-07 

-7.B71E-03 

7.303E-07 

9.3I4E-07 

7  1 

-.90 

7.099E-07 

B.377E-07 

-I.777E-03 

7.593E-07 

9.344E-07 

77 

-  .80 

7.754E-07 

7.873E-07 

7.331E-04 

7.8G0E-07 

9.317E-07 

73 

-  7“ 

7.34SE-0? 

7.64,3E-0? 

I.8P3E-03 

8.0I7E-07 

9.331E-07 

74 

-  .  1.0 

7.471E-07 

7.5I5E-07 

Z.575E-03 

8. I37E-07 

9. 337E-07 

75 

-.50 

7.480E  07 

7.390E-07 

3.  llrOE-03 

8.734E-07 

9.37  3E-0Z 

7G 

-  .40 

7.510E-07 

7. 397E-07 

3. 14ZE-03 

8.70IE-07 

9. 3IGE-07 

77 

-.30 

7.S73E-07 

7.G59E-07 

I.814E-03 

B. 304E-07 

9.3ISE-07 

CD 

-.70 

7.538E-07 

7.463E-07 

7.814E-03 

8.377E-07 

9.793E-0Z 

79 

-  .  10 

7.579E-07 

7.450E-07 

7.87BE-03 

8.314E-07 

9.374E-07 

30 

0.00 

7.539E-07 

7.686E-07 

I.685E-03 

8.379E-07 

9.797E-07 

31 

.  10 

7.540E-07 

7.47GE-07 

7.751E  03 

8.331E-07 

9. 331E-07 

37 

.70 

7.540E-07 

7. 305E-07 

3.G71E  03 

B. 331E-07 

9. 313E-0Z 

33 

.  30 

7.53GE-07 

7.505E-07 

Z.600E-03 

B.375E-07 

9.3I7E-07 

34 

.40 

7.579E-07 

7.4O3E-07 

7.6B1E-03 

B.313E-07 

9.31GE-07 

35 

.50 

7.493E-07 

7.099E-07 

4.65IE  03 

8.755E-07 

9.377E-07 

3G 

.55 

7.439E-07 

G.59  3E-07 

7.71  '!  03 

8. 1B7E-07 

9. 315E-07 

37 

.60 

7.478E-07 

7.335E-07 

3.447E  03 

8. 149E-07 

9.31BE-07 

38 

.65 

7.3G5E-07 

7.G77E-07 

I.70  7E-03 

8.045E-07 

9.307E-07 

39 

.70 

7.370E-07 

7.41GE-07 

3.030E-03 

8.054E-07 

9.374E-07 

40 

.75 

7.Z55E-0? 

7.53IE-07 

7. tG7E-03 

7.BGIE-0Z 

9.349E-07 

41 

.80 

7.777E-07 

7.557E-07 

Z.353E-03 

7.0I5E-07 

9.375E-0Z 

47 

.85 

7. 146E-07 

8. I19E-07 

-4.B07F-04 

7.G75E-07 

9.790E-07 

43 

.90 

7.069E-07 

B. 175E-07 

-4.707E-04 

7.54ZE-07 

9.794E-07 

44 

.95 

7.074E-07 

B.739E-07 

-I.03ZE-03 

7.4G1E-07 

9.330E-07 

45 

1.00 

1 .945E-07 

B.G04E-07 

-7.BGGE-03 

7.319E-0Z 

9.33GE-07 

4G 

1.05 

1  .BG7E-07 

B.584E-07 

-7.777E-03 

7. 1G5E-07 

9.797E-07 

47 

1  .  10 

1 .795E-07 

8.473E-0? 

-1.B77E-03 

7.040E-0Z 

9. 307E-07 

48 

1.  15 

1 .719E-07 

9. 197E  07 

-5.B6nE-03 

G.B9IE-0Z 

9. 307E-07 

49 

1 .70 

I  .B80E-07 

9.410E-07 

-G.977E-03 

B.915E-0Z 

9. 33IE-0Z 

50 

1.75 

I.G35E  07 

9.377E-07 

-6.530E-03 

G.773E-07 

9. 337E-07 

51 

1.30 

I.S69E-07 

9.685E-07 

-8.457E-03 

B.5B9E-07 

9.30BE-07 

57 

1.35 

1 .531E-07 

9.707E-07 

-5.948E-03 

B.61 lE-07 

9. 307E-07 

53 

1.40 

1 .500E-07 

9.799E-07 

-G.407E  03 

G.444E-07 

9. 37  3E-07 

54 

1.45 

1 .485E-07 

9.67GE-07 

-B.70OE-03 

B.410E-0Z 

9. 37GE  07 

55 

1.50 

1  .4G0E-07 

9.795E-07 

-G.495E  03 

B.358E-07 

9. 319E-0Z 

55 

1.55 

1 . 470E  07 

9.590E-07 

-8.030E-03 

B.3B0E-07 

9.371E  07 

57 

1  .G0 

1 .4B5E-07 

9.479E  07 

-7. I74E  03 

G.4I7E-07 

9.377E  07 

r  n 

»  cn 

1  /lO  JC  -ffl7 

Q  a70C-/X7 

_o 

C  (IT'7C_/h7 

o  "joor  rti-t 

92 


TABLE  B9  (CONTINUED) 


ri9 

1.70 

1 .534E-0Z 

9.282E-0Z 

-E.3G5E-03 

B.5IGE-0Z 

9. 306E-0Z 

E« 

t  .75 

t  .  G09r.  -  02 

9  .  E57E  -  02 

'B.Z84E-03 

G.670E-02 

9.297E-0Z 

Gl 

1 . 80 

1  .G54‘  -02 

9.6ZIE-0Z 

'8.e02c-03 

G.7GZE-0Z 

9. 303E-0Z 

Gt 

1  .85 

1 .7I\E-0Z 

9.G40E-02 

tG7E  03 

G.874E'0Z 

9. 307E-OZ 

G3 

1.90 

1 .783E-02 

9.Z18E-0Z 

-5.9BIE  03 

7.0I4E-0Z 

9.280E-02 

G4 

1.95 

1 .83 3E-0Z 

9.Z04E-0Z 

■^5.930E-03 

7.223E-0Z 

9. 31 IE-0Z 

G5 

Z.00 

1 .9B4E-0Z 

8.947E  02 

'4.G47E  03 

7.389E-0Z 

9. 30ZE-02 

GG 

Z  ,05 

Z.070E-0Z 

0. 35eE-0Z 

-  1 .GG7E  03 

7.543E-0Z 

9.313E-02 

G7 

Z.  10 

2. I53E-02 

G.47GE-0Z 

-Z. 30SE  03 

7.6B7E  02 

9. 3I9E-02 

68 

Z.  15 

Z.Z5IE-0Z 

8. 33GE-0Z 

-1.GZ5E  03 

7.e53E  02 

9.237E-0Z 

G9 

Z.Z0 

2. 3I9E-0Z 

0.Z73E  02 

-1 .3I9E-03 

7.9G8E-0Z 

9. 30GE-02 

70 

Z.ZS 

2.399E-0Z 

8. (05E-02 

-4.G9ZE-04 

B.0B4E-0Z 

3.3IBE-02 

71 

2.30 

2.4Z7E-0Z 

7.G54E-0Z 

1  .BZ0E-03 

8.  I38E-02 

9. 3’9E-0Z 

7Z 

Z.40 

2 .5Z0E-0Z 

7.G53E-0Z 

3 .04GE-03 

B.Z9BE-0Z 

9.3026  0Z 

73 

Z.50 

2.594E-02 

7.445E-02 

2.935E-03 

B.4I8E-0Z 

9.Z97E-02 

74 

Z.G0 

Z .GI7E-0Z 

7.489E  OZ 

Z.7Z4E  03 

8.454E-0Z 

9. 324E-02 

75 

2.70 

Z.G3GE-0Z 

7.5G0E-0Z 

2.382E-03 

8.40SE-0Z 

9. 3ZGE-0Z 

7G 

2.80 

2.G55E  0Z 

7.48GE-0Z 

Z.772E-03 

B.516E-0Z 

9. 30GE-0Z 

77 

2.90 

Z.G55E-0Z 

7.8G4E-0Z 

8.5I2E  04 

8.5I5E-0Z 

9. 310E-0Z 

78 

3.00 

Z.GG3E-02 

8. I4GE-0Z 

-5.G99E-04 

B.52BE-0Z 

9. 30BE-0Z 

scnii 

Vel 

Vrpf 

0 

Qr-ef 

M8CM 

YOU 

66  G 

1 

2. I0BE'02 

2. 375E*0Z 

1 .0GnE*0l 

1.2616*01 

1 .9366-01 

2.6876*00 

z 

2. I83EI0Z 

2.370E*02 

1 .0G3E*0I 

1.2556*01 

1.9316-01 

2.0336*00 

3 

2. I75EI02 

:.372E*0Z 

1 .055E*0I 

1.2576*01 

1.9246-01 

2.8006*00 

4 

2. IG7E10Z 

2. 372E*02 

1 .048E*0I 

1.2506*01 

1 .9176-01 

2.5106*00 

5 

2. I47£<02 

2.3736*02 

1 .0Z9E*0I 

1.2606*01 

1.9016-01 

2.3926*00 

G 

2.  1  I7E10Z 

2. 3GIE*02 

1.0016*01 

1.2496*01 

1.8746-01 

2.2536*00 

7 

Z.000E*02 

2.3G2EI02 

9.733E*00 

1.2496*01 

1.8486-01 

2.  1376*00 

0 

2.034E-0- 

2.3G2EI0Z 

9.239E*00 

1.2496*01 

1. 8016-01 

2.0296*00 

9 

l.975Et02 

2.3G5E102 

8.703E*00 

1.2536*01 

1 .7406  01 

1.7556*00 

10 

1 .900E<02 

2.36IE*02 

8.04BE*00 

1.2406*01 

1. 6816-01 

1.6226*00 

1  1 

1 .83SEt0Z 

Z.363E*02 

7.5176*00 

1.2516*01 

1 .B25E-01 

1.5986*00 

12 

1 .7776102 

2.3G4E*02 

7.0396*00 

1.2526*01 

1. 5726-01 

1.6096*00 

13 

I .709E102 

2. 3G2E*02 

6.4906*00 

1.2466*01 

1.5106-01 

l.5BGE*00 

14 

1 .6GGEt02 

2.364E*0Z 

G.  1496*00 

1.2466*01 

1 .4696-01 

1.8586*00 

IS 

I.G28EI0Z 

2.3G8E102 

5.8736*00 

1.2496*01 

I .4366-01 

2.  1356*00 

16 

1 .G34E 102 

2. 3G7E102 

5.9136*00 

1.2406*01 

1 .4416-01 

2.5376*00 

17 

1 .654E102 

2.366E*0Z 

G. 0626*00 

1.2486*01 

1.4596-01 

2.6566*00 

18 

1 .700E102 

2.368EI0Z 

6.4026*00 

1.2496*01 

1.4996-01 

2.9046*00 

19 

1 .774E 102 

2.3G3E*02 

6.9716*00 

I. 2506*01 

1 .5656-01 

3. 1776*00 

Z0 

1.8566*02 

2.3G7EI02 

7.G3GE*00 

1.2406*01 

1.6376-01 

3. 3016*00 

21 

1 .930E*02 

2.375E102 

8.2586*00 

1.2566*01 

1.7036-01 

3.2826*00 

22 

1 .998E*0Z 

2. 3G7E*0Z 

8.6536*00 

1.2476*01 

1 .7636-01 

3. 1766*00 

23 

036E*02 

2. 37IE102 

9.2026*00 

1.2526*01 

1.7976-01 

3.  1526*00 

24 

Z.0G9E 102 

2.3746*02 

9.4966*00 

1.2546*01 

1 .82GE-0I 

3. 1716*00 

25 

2.094EI0Z 

2. 37  IE  *02 

9.7246*00 

1.2506*01 

1.8476-01 

2.9256*00 

2G 

2. I06E102 

2.3G9E*0Z 

9.8386*00 

1.2406*01 

1.8506-01 

2.9076*00 

27 

2. 1 I7EI02 

2.370E*02 

9.8916*00 

1.2406*01 

1.BG3E-01 

2.6556*00 

28 

2. 1 1  BE  102 

2. 365E*02 

9.9486*00 

1.2446*01 

1 .0686-01 

2.7606*00 

29 

2. 1 I5E*0Z 

Z.372E*02 

9.9166*00 

1.2506*01 

1 .8656-01 

2.7676*00 

30 

2.1 igE*02 

2.365E*02 

9.9536*00 

1.2436*01 

1.0696-01 

2.7776*00 

31 

2. 1 I9E*02 

2.3746*02 

9.9566*00 

1.2526*01 

1.8696-01 

2.6136*00 

32 

2. I20EI02 

2.369E*0Z 

9.9586*00 

1.2476*01 

1 .8696-01 

2.6496*00 

33 

2.1186*02 

2.370E*02 

9.9426*00 

1.2486*01 

1 .8686-01 

2.6136*00 

34 

2. 1 I5E*02 

2. 37  IE *02 

9.9156*00 

1.2406*01 

1.8G5E-0I 

2.2646*00 

35 

2. I00E*0Z 

2.373E*02 

9.7776*00 

1.2516*01 

1.8526-01 

2.2656*00 

3G 

Z.078E*02 

2.370E*02 

9.5676*00 

1.2486*01 

1.8326  01 

2.1216*00 

37 

2.073E107 

2. 37  IE *02 

9.52  36*00 

1.2496*01 

1.8286-01 

2.  I20E*00 

38 

2 .047C  *02 

2. 3G7E*02 

9.2816*00 

1.2456*01 

1.8056-01 

2. 1196*00 

39 

2.050E*0Z 

2. 373E*02 

9.3016*00 

1.2506*01 

1.8076-01 

1.9996*00 

40 

Z.000EI0Z 

2  379EI02 

B. 8586  *00 

1 .2576*01 

1. 7636-01 

1.7226*00 

4  1 

1  qmciCTZ 

2  176F  *  07 

8.7546  *00 

1.7  5  36  *  01 

1  75  36  -  01 

1  pt;-7Ei/v» 
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TABLE  B9  (CONTINlfED) 


<lZ 

I.954E40Z 

2.3658*02 

0.4418*00 

1.2418*01 

1.7218-01 

1.7318*00 

43 

1 .9Z0E<02 

2.3678*02 

8. 1468*00 

1.2428*01 

1.6918-01 

1.7268*00 

44 

1 .90C>£«02 

2  3768*02 

7.9748*00 

1.2528*01 

1.6738-01 

1.4918*00 

45 

1 .864E40Z 

2.3778*02 

7.6718*00 

1.2548*01 

1  5418-01 

1 . 5558  *00 

46 

1 .8Z5E  *02 

2.3608*02 

7.3498*00 

1.2438  0' 

1.6068-01 

1 . 3078*00 

47 

1 .793E402 

2.3718*02 

7,0948*00 

1 .246E*t' 

*  5708-01 

1 . 3378*00 

40 

1 . 7566* 02 

2.3708*02 

6.7958*00 

1.2458*01 

1  5448-01 

1.4738*00 

49 

1 .73BE*02 

2.3778*02 

6.6458*00 

1.2528*01 

1.5278-01 

1.4038*00 

50 

1 .7t2E*02 

2.3778*02 

6,4628*00 

1 .2538*01 

1 .5078-01 

1.5208*00 

51 

I.G79E402 

2.3718*02 

6.2108*00 

1.2468*01 

1 .47BE-0I 

1.5328*00 

52 

1  .G59E402 

2. 3718*02 

6.0648*00 

1 .24GE*01 

1.4598-01 

1.5748*00 

53 

1 .G42E402 

2.3758*02 

5.9408 • 33 

1.2508*01 

1 .4448-01 

1.7648*00 

54 

1 .633E4  0Z 

2.3768*02 

5.07Gc*00 

1 .r5i£*0i 

1.4368-01 

1.0328*00 

55 

1  .G20Et02 

2.3748*02 

5.7818*00 

l.249f *01 

1.4258-01 

Z.047E*?)® 

SB 

1 .6258*02 

2.3748*02 

5.0208*00 

1.2508*01 

1.4298-01 

2. 1088*00 

57 

1  .  G33E  *Ci? 

2. 375E*0? 

5.G79E4C0 

1 .250E*0t 

1.4378-01 

2 . 2448*00 

58 

t .63GE»02 

2.3698*02 

5.9078*00 

1.2438*01 

1.4408-01 

2. 3038*00 

59 

1  .GGe'E<BZ 

2.3718*02 

6.0738*00 

1.2468*01 

1.4608-01 

2.6368*00 

50 

1 .G99E*02 

2.3698*02 

6. 3638*00 

1.2438*01 

1.4958-01 

2.9048*00 

GI 

1 .7Z3E102 

2.3708*02 

6.5418*00 

1.2458*01 

1 .5168-01 

3.0078*00 

GZ 

1 .75IE*®Z 

2.3718*02 

6.7598*00 

1.2468*01 

1.5418-01 

3.  156E*0«' 

63 

1  .  (B7E402 

2.3648*02 

7.0408*00 

1 .2388*01 

1.5728-01 

3.  1  348*00 

F4 

1 .e40E  *02 

2.3728*02 

7.4678  *00 

l.247E*01 

1.6198-01 

3. 32 18*00 

R5 

1  .  8828*02 

2.3708*02 

7. BIS^  *00 

1.2458*01 

1 .6578-01 

3.2968*00 

66 

1  .9218*02 

2.3728*02 

0. 1478*00 

1 .  .'E *01 

1.6918-01 

3.4168*00 

G.’ 

I  .9588*02 

7.3748*02 

8.4648*00 

1.2498*01 

1.7248-01 

3. 3568*00 

68 

2  .  W'0E  *  02 

2. 3668*02 

8.0378*00 

1.2438*01 

1.7628-01 

3.3798*00 

69 

2.0298*02 

2. 3708 '02 

9.0988*00 

1.2458*CI 

1.7078-01 

3.3278*00 

70 

2.0598*02 

2.3738*02 

9.3608  00 

1.2498*01 

1.0148-01 

3.2958*00 

71 

2.0728*02 

2.3758*02 

9.4968*00 

1.2528*01 

1 .0268-01 

3. 3118*00 

7Z 

2.1138*02 

2.3698*02 

9.8768*00 

1.2458*01 

1.0628-01 

3. 1408*00 

7.3 

2 . 14  t  02 

2.3608*02 

1.0178*01 

1 .  24.18*01 

1 . 8098-01 

3.  1558*00 

74 

2.  15,38*02 

2.3758102 

1.0268*01 

1.2508*01 

1 .8978-01 

3.0368*00 

75 

2.  1618*02 

2.3758*02 

1 .0338*01 

1.2518*01 

1.9048-01 

3.0278*00 

76 

2.1688.02 

2.3708*02 

1.0418*01 

1.2468101 

1  .91 18  01 

2.BbO''*00 

77 

2.  1688*02 

2.3718*02 

1.0418*01 

1.2428*01 

1.91 18-01 

2. 8598  <00 

78 

2.1728*02 

2.3708*02 

1.0448*01 

1.2468*01 

1.9148-01 

2.8788*00 

scnw 

Pref  ri/Qref 

U 

I  r  e 

1 

1. 7788  01 

1 .0068*00 

9.2408  01 

2 

1 .8088-01 

1.0068*00 

9,24BE  01 

3 

1.8698-01 

1.0068*00 

9.2058-01 

4 

1 .°54E  01 

1 . 0068  *  00 

9.  1628  01 

5 

2. 1368-01 

1 . 0068  ♦lyO 

9.0268  01 

6 

2. 2988-01 

1 .0058  *00 

8.9908-0: 

7 

2.5608-01 

1  .OO""'  *00 

0.0608-01 

0 

3. 0018-01 

1 .0058*00 

0.6288-01 

9 

3.4788-01 

1.0058*00 

8. 3598-01 

10 

4.0088-01 

1.0048*00 

0.0488  01 

1  1 

4.4528-01 

1.0048*00 

7.7658-01 

12 

4.8608  0' 

1 .0048*00 

7.50  28-01 

1  3 

5. 2688-01 

1.0048*00 

7. 2248  01 

14 

5.5528-01 

1 .0038*00 

7.0298  01 

15 

5.7908-01 

1.0038*00 

6,0508  01 

16 

5.7698-01 

1 .0038  *  00 

6. 0048  01 

17 

5.6618  0. 

1 .00  38  *  00 

6.9728  01 

18 

5.43  8-01 

1.0038*00 

7. 1638-01 

19 

4.8b'iE-01 

1.0048*00 

7.4  258  01 

20 

4.36:  -01 

1.0048*00 

7.8378-01 

21 

3.9068  01 

1.0048*00 

8. 1278  01 

22 

3.3398  01 

1.0058  *00 

8.4508  01 

2  3 

3.0368-01 

1 .0058*00 

8,6018  01 

24 

2.7408-01 

1 . 0058  *  00 

8.7348  01 

c-TOr.nn  «  p  Ocit-«i 


r 


TABLE  B9  (CONTINUED) 


4  .  1  V  k_  V.  < 

'  •  *  . . 

U  .  *-  *-** 

7C 

Z.4IRE-0! 

1  -CC^^E+CC 

8.5136  01 

n 

7 .  376E  Cl 

1 .  ccr-c  ♦cc 

0.93nr  01 

78 

Z.Z9SE-CI 

I . CC5E  *00 

a.gniE  01 

79 

7.335E-0I 

I . 00St  <00 

0.9426  01 

30 

7.78GE  01 

1 .005E*00 

0.9856-01 

31 

7. 34GE  01 

1.0056*00 

0  9536  01 

37 

7.2BIE  0\ 

t .00BE<00 

8.9776  01 

33 

7. 3706 -01 

1 .00SE  *00 

8.9GiE-0t 

34 

7.37RE  0. 

1 .0056*00 

8. 949E-0I 

35 

2 . 4CRE- Cl 

1 .005E  *00 

8  R?SE  01 

36 

7.65tE-0l 

1 .O0SE400 

8.  7806  01 

37 

:.G84E'C1 

1 .00BE  <00 

8. 7556 -01 

30 

Z.854E-0I 

1 .00BE<00 

e.GfiGE  01 

39 

2.095E-0I 

1 . 00BE  <  00 

8.654E-0I 

40 

3.Z87E  01 

1 ,0C5E<00 

0.42.’E  01 

4  1 

3.313E 

t . 005E (00 

8.3P’6  01 

47 

3.5GGE-v;l 

1 .00GE<00 

8.?G9E'0I 

43 

3. B54E-0I 

1 .0C4E<00 

8. 1 186  0i 

44 

4 .C40E'C1 

1 .004E*00 

7.990E  01 

45 

4. ?4gE'CI 

) .004E<00 

7. 83PE  01 

46 

4.54SE-C1 

1  -CCAl  <00 

7.701E  01 

47 

4.7ZIE  31 

I .0016  *00 

7.S57E-0I 

49 

4.gGlE'7t 

I .C04E<00 

7. 3986  01 

49 

s .  1  r.cr  -  c  1 

1  .  <00 

7.2916-01 

50 

5. 263E  01 

1 .00?E  <00 

7. t?:E-0i 

51 

5.455E.-0I 

,  .003*^  -00 

7.0646-01 

57 

5.53GE-0I 

1  .CG3E  *00 

6.9816  01 

S3 

S.b50E-0l 

.  .003E*0O 

6.89R6-0I 

54 

S.760E -01 

1 .003E  *00 

6. 0556  01 

55 

5.  0Z4E-  01 

1 .0036  *00 

5. 8051  01 

55 

'  .7B7E-''t 

1.0036  *00 

6. 0756-01 

57 

5.7F<"‘'-C1 

1 .00.»f  *60 

G  0GC-  01 

58 

5.74',-  01 

1 .0036*00 

G. 0956-01 

59 

S.^t4E-0l 

1.0036*00 

5.9856  01 

G0 

L  . 370E-0I 

1 .0036  *  0'' 

7. 1596  01 

51 

5.7O5E-0I 

1 .0*046  *00 

7.7546  01 

57 

5.  1 I8E-0I 

1 .0046  *00 

7.3736-01 

53 

4.874E-0I 

1 .00*5*00 

7.5486-01 

64 

4.5B7E  01 

1.0046*00 

7.7506-01 

E5 

4.763E  01 

1 . 0046  *00 

7.9396  01 

56 

3.9B4E-0I 

1 .0046  *00 

8.0996-01 

57 

3.739E-0I 

1 .0056*00 

8.7576  01 

*■0 

3.36SE-0I 

1 .0056*00 

8.4556  01 

69 

3.  I55E  01 

1 . 0056 1 00 

0.5736-01 

70 

Z.95GE-0I 

1 .0056*00 

8. 5906  01 

71 

2 .8I5E-0I 

1 . 0056  *  00 

0.7406  01 

77 

2.455E-0I 

1 . 0056  *  00 

8.34,36  01 

73 

Z  ,  I43E'C1 

1 . 0056 • 00 

9.C ■■  IE-  Cl 

74 

7  .  MGE  01 

1 . 0066  *  00 

9.0956-01 

75 

7.016:  01 

1 .00RE*00 

9. (786-01 

75 

1  .937E-0I 

1 .0056  *00 

9,1876  01 

77 

I. 91  IE  Cl 

1 .0066  *00 

9. 1796-01 

78 

1 ,3C3E-0I 

1 .0056*00 

9.1946-01 

E  nvFPnr.rs 

rnnvG 
I . 2G3E<0I 
MUGEF 

I .!?3F-e5 


rnnvr,  Tf.hr’nvG 

530. Gl 

TEMPSTninvG 

5.3.38i,t07 


XPFFnVG 
9. 3I0E-OZ 


VPEFEVG 

Z.37BE30? 


OPEFGVG 
I . ?49Et0l 


GE  'i  POLOS  WO 
4  .  Br,r,0E  *00 
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TABLE  BIO 


SLOTTED  BLADE  REDUCED  DATA  FILE  PRINTOUT — 


FILE  U-3IMflYMCftLC 


SCAN 

PPB 

POSIT 

BETA 

GAMMA 

THl 

Xvel 

1 

-3.00 

2.68IE-02 

6.6558-02 

7.0108-03 

8.5568-02 

2 

-2.90 

2.B50E-02 

7.  1128-02 

4.EGIE-03 

8.5078-02 

3 

2.70 

2.G33E-02 

7.5248-02 

2.5598-03 

8.4808-02 

4 

-2.60 

2.593E-02 

7.2738-02 

3. 8078-03 

8.4168-02 

5 

-2.50 

2.524E-02 

7. 6108-02 

2.0678-03 

8.3058-02 

8 

-2.40 

2.4I4E-02 

7.3508-02 

3.3668-03 

8. 1258-02 

7 

-2.30 

2.29GE-02 

7.3828-02 

3.2228-03 

7.9308-02 

8 

-2.20 

2.  I99E-02 

7.9308-02 

4.6288-04 

7.7678-02 

9 

-2.10 

2 .048E-02 

8.4138-02 

-1 .9358-03 

7.5048-02 

10 

-2.00 

1 .9tgE-02 

8.4338-02 

-1 .9748-03 

7.2728-02 

1  1 

-1.90 

1 .75IE-02 

8.3488-02 

-1  .4738-03 

6.9568-02 

I  : 

-1.00 

1  .6S4E-02 

8.4038-02 

-  1 .7488-03 

6. 7668-02 

1  3 

-1.70 

1 .5336-02 

8.6578  02 

-3. 1568-03 

6. 5178-02 

1  4 

-1  .60 

1 .485E-C2 

8.3638  02 

-1.6058-03 

6. 4168-02 

IS 

-1.90 

1 .467E-02 

8.7338  02 

-3.5518-03 

6.3768-02 

16 

-1.40 

1  .489E-02 

e. 1 128-02 

-2.9318-04 

6.4268-02 

I  7 

-1.30 

1  .S29E-02 

7.8358-02 

1 .1738-03 

G.SI 18-02 

18 

-1.20 

1  .G4SE-02 

8.3068 -02 

-1.2468-03 

6.7488-02 

1  9 

-1.10 

1  .7GSE-02 

6.0328-02 

1 .5928-04 

6.9858-02 

20 

-1.00 

1  .922E-02 

7.3658-02 

3.5)88-03 

7.2808-02 

:  I 

-  .  90 

2 .073E-02 

7.5168-02 

2.6448-03 

7.5508-02 

L  Z 

-.90 

2.2I4E-02 

7.5738-02 

2.2758-03 

7.7928-02 

zs 

-.70 

2.337E-02 

7.6008-02 

2.1038-03 

7.9988-02 

2i 

-.60 

2.407E' 02 

7.3518-02 

3.3598-03 

8.  1  158-02 

2S 

-.50 

2 .463E-02 

7.2978-02 

3.6398-03 

8.20BE-C2 

26 

-  .  40 

2. SUE  02 

7.4708-02 

2.7748-03 

0.2898-02 

21 

-  .30 

2.S23E-02 

7.4438-02 

2.9148-03 

0.3038-02 

28 

-.20 

2.529E-02 

7.2158-02 

4.0708-03 

8.3I3E-02 

29 

-.10 

2 .S34E  -02 

7.2408-02 

3.9458-03 

6.3208-02 

30 

0.00 

2.5I4E-02 

7.4308-02 

2.9758  03 

0. 2898-02 

31 

.  10 

2.53IE-02 

7. 1918-02 

4.1948-03 

8.3168-02 

32 

.20 

r.539E-02 

6.8638-02 

5.SGIF-03 

B.330E-02 

33 

.30 

2.543E-0: 

7.0248  02 

5.0498-03 

8.3358-02 

34 

.  40 

2.540E-02 

6.7488-02 

6.4498-03 

8. 3318-02 

35 

.50 

2.5288-02 

6. 8178-02 

6 .0918-03 

8.3128-02 

36 

.55 

2.SIGE  02 

7.2168-02 

4.0608-03 

8.2928-02 

7  7 

.60 

2.5I0E-02 

7.0988  02 

4,6578-03 

8.2025  02 

38 

.65 

2.4998-0: 

7.294E  er 

3.71 4E -  03 

8. 2348  02 

3  9 

.70 

2.464E-02 

7.3138  02 

3.55nE -03 

8  2078  02 

40 

.75 

2.439E-02 

7.2138-02 

4.0618-03 

8.16GE  02 

4  1 

.90 

2.397E-02 

7.3018-02 

3.210E  03 

B.e99E-02 

42 

.85 

2. 3288-02 

7.5238  02 

2.496E-03 

7.984E-02 

4  J 

.  90 

2.2738-02 

7.7958-02 

1 . l24E-e3 

7.892E-02 

44 

.  °s 

2.2298-02 

8. 1248-02 

-5.406E  04 

7.0I7E  02 

45 

1 .00 

2. 1468-02 

7.5698-02 

2.3’:E  03 

7.B77E-02 

46 

1  .05 

2.0838  02 

8. 1498-02 

-G.0I9E-04 

7.565E  02 

47 

1.10 

2. 0218-02 

8.7658-02 

-3.7288-03 

7.455E-02 

49 

1.15 

I  .9418-02 

8.9818-02 

-4.8058-03 

7. 3I2E-02 

49 

1  .20 

1  .6248-02 

8.6998-02 

-3.3028-03 

7.094E  02 

1 .25 

1 . 78(8-02 

9.5038  02 

-7.87.’E-03 

7.022E-02 

SI 

1  .  30 

1 .6938-02 

1 .0218-01 

-1.1148-02 

B.837E-02 

52 

1  .35 

1 .6328  02 

1 .0108  01 

-1 .0568  02 

E.7I5E-0: 

53 

1  ,40 

1 .6138-02 

9.6748-02 

-8.3718  03 

G.678E-02 

S4 

1  .45 

1 .5808-02 

1 .0248  01 

-1 .1348-02 

6.6308-02 

55 

1  .50 

1.5428-02 

9.9398-02 

-9.7958  03 

6.5308-02 

56 

I  .55 

1 .5518  02 

1 .0228-01 

-1.1258-02 

6.5498-02 

57 

1  .60 

1 .5478-02 

1 .0038-01 

-1 .0278-02 

6.5408-02 

O 

1  c  r 

,  ncQC 

t 

_i  77qr-07 

c  ccqc-o-* 

DOWNSTREAM 


Xre  f 

9. 23ZE-ei2 
9.29l?E-eZ 
g.304E-02 
9.3I5E-02 
9.202E-02 
9.27BE-02 
9.27SE-02 
9.2g2E-02 
9.287E-02 
9.28EE-02 
9.276E-02 
9.2BBE-02 
9.207E-02 
9. 294E-02 
9.292E-02 
9.297E-e: 
9.290E-02 
9.2B7E-02 
9.:9:E-02 
9, 305E-0: 
9.2e8E-0: 
9. 283E-02 
9.:93E-0: 
9.:94E-02 
9.296E-02 
9.:90E-02 
g.zggE-e: 
9.30nE-02 
g.:s4E-o: 
g.300E-02 
9.309E-02 
9.3028  02 
9.304E'02 
9. 3t4E-02 
9.333E  02 
9. 2e?E-C2 
9.324E'02 
9.341E-02 
9.3328-02 
9. 324E-02 
9.3408-02 
9.333E-02 
g.3l2E  02 
9.3308-02 
9 . 3 1 9E  02 
9. 34GE-02 
9. 309E-02 
9.3378-02 
9.31  IE-02 
9.33IE-02 
9.334E  02 
9.337E-02 
9.3348  02 
9.34EE-02 
9.3098  02 
9. 3EG8-02 
9. 3398 -02 

O  7  1  I  C  _  ^ 
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'  ■ 

.  .  w  - 

•  - -  '  ” 

•  •  - - - 

•  - - -  ^ 

- - 

^  . . . . . 

59 

I  .70 

1 .5955-03 

9.9365-02 

-9.7485-03 

6. 6415-02 

8.3285-02 

E3 

1  .75 

1 .8325-02 

1 .0275-01 

-1  .  1495-02 

B. 7165-02 

9.3275-02 

G  I 

I  .  90 

1 .6785-02 

1 .0105-01 

-1.0595-02 

S. 9075-02 

9.3155-02 

b  2 

1  .C5 

1  .  7546-  0? 

1 .0165-01 

-1  .0855-02 

6.9575-02 

9.3385-02 

b 

1  .sa 

1 .8345-02 

1 .0235-01 

-I  .  1255-02 

7.1095-02 

9.3135-02 

b  i 

t  .95 

1 . 9075-02 

9.7555-02 

-8.7825-03 

7.2485-02 

9.3375-02 

Bb 

2.03 

2.0066-0? 

9.2495-02 

-6.2025-03 

7.4265-02 

9.3285-02 

b  b 

2.0b 

2 .  M IE-02 

8.9595-02 

-4.7575-03 

7.6135-02 

9.3205-02 

B  / 

2.10 

2. 1995-02 

9. 1165-02 

-5.5865-03 

7. 7665-02 

9.3445-02 

by 

2.15 

2.2775-02 

9.0735-02 

-5. 3825-03 

7.8985-02 

9.3315-02 

63 

2.20 

2.3715-02 

8.7675-02 

-3.8355-03 

8.0545-02 

9.3405-02 

7P 

2.25 

2.4385-02 

8.9355-02 

-4.6805-03 

8.1645-02 

9.31  15-02 

71 

2.30 

2.4965-02 

9.0875-02 

-5.4375-03 

8.2585-02 

9.3385-02 

/'l 

2.-13 

2.5775-02 

9. 0185-02 

-5.0355-03 

8.3905-02 

9.3335-02 

7Z 

2.50 

2.6176-02 

8.6565-02 

-3.1895-03 

B. 4545-02 

9. 34eE-02 

74 

2.60 

2 .6495  02 

6.9?Pb  0? 

-4.5435-03 

B. 5055-02 

9.3485-02 

75 

2.70 

2.6825-02 

9.0445-02 

-5. 1215-03 

8.5255-02 

9.3725-02 

<  b 

2.80 

2.6625-02 

9. 1525-02 

-5.6695-03 

8.5255-02 

9.3415-02 

77 

2.90 

2.6695-02 

8.9545  02 

'4.7Pb£-03 

8.5375-02 

9. 3605-02 

79 

3.00 

2.6728-02 

8. 9395-02 

-4.5815-03 

8.5415-02 

9.3525-02 

SCf.M 

V»1 

I'rf-r 

0 

Oref 

MACH 

YAU 

I 

2. 1785-02 

2.3655*02 

1 .0495*01 

1 .2405*01 

1 .9205-01 

D5G 

3.0335*00 

2. 1855*02 

2.3645*02 

1.0375*01 

1.2335*01 

1 .9095-01 

2.9195*00 

2. 1585*02 

2.3685*02 

1 .0315*01 

1  .2435*01 

1  .9035-01 

2.89.75*00 

4 

2.  H25*02 

2.3715*02 

1 .0ISE*ei 

1.2465*01 

1  .8895-01 

2.7835*00 

5 

2.  1  ME*02 

2.3635*02 

9.8825*00 

1  .2375*01 

1  .8645-01 

2.5045*0? 

5 

2.0895*02 

2.3625*02 

9.4555*00 

1.2365*01 

1 .8235-01 

2.3935*00 

7 

2.0205*0'’ 

2.3625*02 

9.0005*00 

1  .2-65*01 

1  .7795-01 

2.2305*0? 

9 

1 .9795'0; 

2.3655*02 

8.6335*00 

1 .2405*01 

1 .7425-01 

1 .9765*00 

9 

1.9115*02 

2.3655*02 

8.0525*00 

1 .2395*01 

1  .6835-01 

1 . 9575*0? 

\Q 

1 .0526*02 

2.3655*02 

7. 56 '5 *00 

1  .2305*01 

1  .6305-01 

1 .8265*00 

1  I 

1.7715*02 

2.3625*02 

6.9145*00 

1  .2365*01 

1 .5595-01 

1 .7175*00 

12 

1 .7235*02 

2.3655*02 

6.5415*00 

1  .2385*01 

1 .5165-01 

1 .8505*00 

13 

1 .8605*02 

2.3665*02 

6.0665*00 

1  .2395*01 

1 . 4BPE-0) 

1 . 9725*00 

1  4 

1  .63'15*02 

2.3675*02 

5.8795*00 

1 .2415*01 

1 .4305-01 

2.2205*00 

15 

1  .8245*02 

2.3675*02 

5. 80^*5 1 00 

1 .2405*01 

1 .4295-01 

2.4445*0? 

IG 

1  .5375*02 

2.3685*02 

5. 89 75 *00 

1  .?4IE*0I 

1 . 44OE-01 

2.8965*00 

!  7 

1  .8595*02 

2.3675*02 

6.0545*00 

1 .?4eE^ot 

1 .4595-01 

3. 1395*00 

1  8 

1  .7195*02 

2.3665*02 

6.5035*03 

1 .2395*01 

1 .5125-01 

3.2645*00 

1  3 

1 .7905*02 

2.3655*02 

6.9715*00 

1 .2375*01 

1 .5665-01 

3.3695*00 

rc 

1  .8555*02 

2.3715*02 

7 . b7GE  *  C0 

1 .:44E*0t 

1 .6325-01 

3.6115*00 

2  I 

1 .9245*02 

2.3675*02 

8. 1525*00 

1 .2395*01 

1 .6935-01 

3.4925*00 

77. 

1 .9865*02 

2.3665*02 

8.6985*00 

1 .2385*01 

1 .7495-01 

3.3745*00 

C  J 

2 . 0385*02 

2.3685*02 

9.  1575*00 

1 .2405*01 

I .794E'01 

3.3585*00 

Z  4 

2.06=5*02 

2 . 3685*02 

3.4295*03 

t  .2415*01 

1  .8215-01 

3. 1535*00 

25 

2.0915*02 

2.3695*02 

9.6455*00 

1 .?4 IE^0t 

1  .84  15-01 

3. 1205*00 

2.1125*02 

2.3675*02 

9.8425*00 

1 .2405*01 

1  .8605-01 

2.9845*00 

77 

2.1185*02 

2.3695*02 

9.8775*00 

1 .24)E*01 

I  .8635-01 

2.8585*00 

20 

2. 1 195*02 

2.3715*02 

8. 9015  *00 

1 .2445*01 

1 .8855-01 

2.7315*00 

23 

2 . 1205*02 

2.3665*02 

9.9185*00 

1 

1  .8675-01 

2.7675*00 

3P 

2. 1 135*02 

2.3705*02 

9.9445  *00 

1  .2425  *01 

1  .8605-01 

2 .7175*00 

31 

2.1195*02 

2.3725*02 

9.9085*00 

1  .?4bE  *0» 

1 .8665-01 

2.8285*00 

2.1225*02 

2.3705*02 

9.9425*00 

1  .2435*01 

1  .8695-01 

2.9335*00 

33 

2. 1245*02 

2.3715*02 

9.9555*00 

1 .2435*01 

1 .8705-01 

2.7115*0? 

34 

2. 1235*02 

2.3735*02 

9.9455*00 

1 .2465*01 

1  .8895-01 

2.5765*00 

3b 

2. 1185*02 

2.3785*02 

9.9005*00 

1 ,2515*01 

1  .8855  01 

2.3305*00 

3b 

2.  1135*02 

2.3655*02 

9.8495*00 

1 .2385*01 

1 .8605-01 

2.3315*00 

37 

2.1105*02 

2.3765*02 

9.8285*00 

1  .?4bE*PI 

1 .8585-01 

2.2625*00 

39 

2  .  1065  *02 

2.3805*02 

9.7865*00 

1  .:5''E*0l 

1 .8545-01 

2  . i74E*ee 

33 

2 . 03IF 

2.3775*02 

9.64^5  *00 

1  .2=- 15  >01 

1 .8415-01 

2.0635*00 

4pi 

2.0^?^  *0? 

2.3755*02 

9.5525*00 

1  .?43E*0t 

1 .8325-01 

1 . 9485*00 

o  ■» o "^r  1  rtft 

1  -ft  i  • 

»  o  •  ~tr  .  rt  1 

97 


4.  .  CD  .  >-  ■ 

TABLE 
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4^ 

2.034Et02 

2.3789*02 

9. 1269*00 

1 .2519*01 

1  .7919-01 

43 

2.01 IE*02 

2.3729*02 

8. 9149*00 

1 .2469*01 

1  .7709-01 

44 

1 .9929*02 

2.3779*02 

8.7469*00 

1 .2509*01 

1 .7539-01 

45 

1 .9568*02 

2.3759*02 

8.4319*00 

1 .2479*01 

1  .7229-01 

46 

1 .9288*02 

2.3819*02 

8. 1909*00 

1 .2559*01 

1  .6979-01 

47 

! .8999*02 

2.3729*02 

7.9498*00 

1 .2459*01 

1  .6729  -01 

49 

1 .8629*02 

2.3789*02 

7.6459*00 

1.2529*01 

1  .6399-01 

49 

1 .8078*02 

2 . 3719*02 

7. 1 938*00 

1 .2459*01 

I  .5909-01 

1 .7899*02 

2.3779*02 

7.0489*00 

1 .2519*01 

1 .5749-01 

61 

1.7419*02 

2.3779*02 

6.6808*00 

1 .2519*01 

1  .5329-01 

52 

1 .7109*02 

2.3789*02 

6.4429*00 

1 .2529*01 

1 .5059-01 

53 

1 . 7019*02 

2.3779*02 

6.3718*00 

1 .2529*01 

1 .4979-01 

54 

1 .6899*02 

2.3819*02 

6.2799*00 

1 .2559*01 

1 . 4869-01 

65 

1 .6649*02 

2.3719*02 

6.0909*00 

1 .2459*01 

1  .4639-01 

56 

1 .6689*02 

2.3889*02 

6. 1288*00 

1 .2609*01 

1.4689-01 

57 

1 .6869*02 

2.3779*02 

6. 1 108*00 

1 .2529*01 

1  .4669-01 

58 

1 .6729*02 

2 . 3769*02 

6. 1559*00 

1 .2519*01 

1  .4719-01 

59 

1.6918*02 

2.3769*02 

6.2999*00 

1 .2509*01 

1 .4889  01 

60 

1.7109*02 

2.3759*02 

6.4419*00 

1 .2499*01 

1  .5059-01 

61 

1 .7348*02 

2.3729*02 

6.6209*00 

1 .2469*01 

1 .5269-01 

n: 

1.7718*02 

2.3789*02 

6.9159*00 

1 .2539*01 

1 .5599-01 

63 

1.8119*02 

2.3729*02 

7.2229*00 

1 .2469*01 

1 .5949  01 

64 

1 .8468*02 

2.3789*02 

7.5099*00 

1 .2529*01 

1 .6259-01 

65 

I .8918*02 

2.3758*0? 

7.8849*0? 

1 ■ 2509*01 

1 .6659-01 

66 

1  .9399*02 

2.3739*02 

8.2899*00 

1 .2489*01 

1 .7079-01 

67 

1 .9789*02 

2.3799*02 

8.6289*00 

1 .2549*01 

1  .7429-01 

68 

2.0119*02 

2.3769*02 

8.9259*00 

1 .2519*01 

1  .772E-01 

69 

2.0519*07 

2.3799*02 

9.2859*00 

1 .2539*01 

1  .8079-01 

70 

2.0009*02 

2.37:9*02 

9.5429*00 

1  .:4SE<01 

1  .8329-01 

71 

2 . 1049*02 

2.3789*02 

9.76  *'9*00 

1  .2529*01 

1.8539-01 

72 

2.  1379  *02 

2,3779*02 

1  .0089*01 

I  .2519*01 

1.8839-01 

73 

2.  1538  *02 

2.3799*02 

1  .0248*01 

1 .2539*01 

1  .8979-01 

74 

2  1'  38  ‘03 

2.3819*02 

1 .0378*01 

1 .2559  *01 

1 .9099 -01 

75 

2.1719*02 

2.3879*02 

1 .0429*01 

1.2629101 

1.9139-01 

76 

2.1719*03 

2.3799*02 

1 .0428*01 

1 .2539*01 

1 .9139-01 

77 

2.1758  *02 

2.3849*02 

! .0459*01 

1  .25?E*01 

1  .9169-01 

70 

2.  1769  *02 

2.3829*02 

1 .0459*01 

1 .2569*01 

1 .9179-01 

■*•(11 

rrpf-f’t/'J*  >!f 

U 

I '  c 

1 

1 .8759  01 

1 .0069*00 

9.2398  01 

1' 

1  ,  9029  ni 

1 .0069*00 

9.1908-01 

3 

1 . 9969  01 

1 .0069*00 

9.  M58  01 

4 

2.1319  01 

I .0059*00 

9.0639  01 

5 

2.3319  01 

1  .0059*00 

8.9729  01 

5 

2 .6989  01 

1  ,0059*00 

8.7798  01 

7 

3.1269  01 

1 .0059*00 

8.5608  01 

8 

3.4068  01 

1  .0059*00 

8. 36 <8  01 

9 

3.9758-01 

1 .0019*00 

8.0808-01 

10 

4 . 3449-01 

1 .0019100 

7.8299  01 

1  1 

4.9019-01 

1 .0019*00 

7.4899-01 

12 

5.1049  01 

1 .0049*00 

7.2749  01 

13 

5.59PE-01 

1 .0039*00 

7.0019  01 

1  4 

5.7609 -01 

1 .0039*00 

6.8969  01 

15 

5.8149-01 

1 .0039*00 

6. 84  IF  01 

16 

5,7508  01 

1 .0039*00 

6.8919  01 

1  7 

5,6219  01 

1 .0039*00 

6.9919-01 

1  8 

5.3279-01 

1 .0049*00 

7.2509  01 

19 

4.8959-01 

1 .0049  100 

7.5158  01 

20 

4.4129  01 

1 .0019*00 

7.9199  01 

21 

3.8969 -01 

1 .0019*00 

8.1309  01 

22 

3.4419  01 

1 .0059*00 

8.4019  01 

23 

3.0348  01 

1 .0059*00 

8. 6209  01 

24 

2. 79  .’8  01 

1 . 0059*00 

0.7188  01 

r 

■>  i;7fir-ni 

1 . 0058  *00 

8.9498 -01 

I .B48E+00 
I .6S7E<00 
I .B66E*00 
I . B4 I E<00 
I .649Et00 
I .S3PE»00 
I .54IE+00 
I .4g8E<00 
I .B85E400 

1 . B5BE400 
I .64IE+00 
t .7g3E*00 
I .7gEE<00 
2 . l5gE»00 
Z.057E*0O 

2. r37E40B 
2.42IEfB0 
2.690E400 
2 .837E*00 

2.  g4:E400 
3.073E*0O 
3.2IPE<00 
3.356E*00 
3.4798*00 
3.5g:E*P0 

3. B2PE*0O 
3.528E*O0 
3. 4g2E*P0 
3. 4P3F*P0 
3 . 344E*0O 
3.3898*00 
3.:3EE*00 
3.242E*00 
3.072E<C0 
3. iriE'Pe 
3.086E*P0 
3.078E400 
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2S 

2.376E-0I 

1 .005Et00 

8.9466-01 

21 

2.365E-6I 

1 .005E>O0 

8.9566-01 

?8 

2.356E-CI 

1 .0056*00 

8.9566-01 

?9 

2.305E-0I 

1 .0056*00 

8.9976-01 

30 

2 . 338E-0I 

1 .0056*00 

8.9386-01 

31 

2.3?7E-0I 

1 .0056*00 

8.9596-01 

3? 

2 . 37GE-0I 

1 .0056*00 

8.9916-01 

33 

2 . 254E  - 01 

1 . 0O5E*00 

8.9856  01 

34 

2 .2G3E-0I 

1 .0056*00 

8.9716-01 

35 

2.3266-01 

1 . 0056*00 

8.9326-01 

36 

2.36eE-0l 

1 .0056*00 

6. 9546-01 

37 

2.395E- 01 

1 .0056*00 

8  9066  01 

38 

2.438E-0I 

1 .0056*00 

8.8726-01 

39 

2 .S84E-0I 

1 .0056*00 

8.8166-01 

40 

2 .659E-0I 

1 .0056*00 

8.7796-01 

4  1 

2.803E-0I 

1 .0056*00 

8.6896-01 

4? 

3.0346  01 

1 .0056*00 

8.5696-01 

43 

3.237E-0I 

1 .0056*00 

8.4866-01 

44 

3. 344E-0I 

1 . 0056*00 

8. 3886-01 

45 

3.659E- 01 

1 .0056*00 

8.2436-01 

46 

3,846E- 01 

1 .0046*00 

8.0996-01 

47 

4.0726  01 

1 .0046*00 

8.0096-01 

46 

4.3I2E  01 

1 .0046*00 

7.9286-01 

49 

4 . 702E-  01 

1 .0046*00 

7.6126-01 

50 

4.P07E-0I 

1 .0046*00 

7.5176-01 

51 

5. 1 I9E-0I 

I .0046*00 

7.3136-01 

5? 

5.3O7E-0I 

1 .0036*03 

7.1 796-01 

53 

5.3406-01 

1 .0036*00 

7. 1406-01 

54 

5.4I6E-0I 

1 . 0036*00 

7.0806  01 

55 

5.59IE-0I 

1 .0O?6'O0 

6.9996-01 

56 

5. 5486-01 

1 .0036*00 

6.9776-01 

57 

5.5606-01 

1 . 0036*00 

6.9906  01 

59 

5.5'=  -01 

1 .0036  *00 

7. 01 96 -O' 

59 

5 . 4  8 ;  E  -  0  1 

1 .0036*00 

7. 1036  01 

60 

5.3946 -01 

1 .0036  *00 

7. 1956-01 

6' 

5,2I7E  01 

1 .0046*00 

7.2946-01 

6? 

5.eO?F-0l 

1 .0046*00 

7.4396-01 

6  3 

4 .779E-0I 

1 .0046*00 

7.6246-01 

64 

4 .546E-0I 

1 .0046*00 

7.7566-01 

65 

4.249E-0I 

1 .0046*00 

7. 9576  01 

66 

3,902E  01 

1 .0046*00 

8.1696-01 

67 

3,626E  01 

1 .0056*00 

8.3166  01 

68 

3.360E-0I 

1 .0056*00 

8.4736  01 

69 

3.054E-0I 

1 .0056  *00 

8.6366  01 

70 

2.78SE-0I 

1 .0056*00 

8.7956-01 

71 

2.6046  01 

1 .00^6*00 

8.8656-01 

7? 

2.3I6E-OI 

1  ,pc»GE*00 

9.0I4C  01 

73 

2. I7EE  01 

1 .0066*00 

9.0786-01 

74 

2.073E  01 

1  .0066*00 

9.  1276  01 

75 

2.024E-0I 

1 .0066*00 

9. 1276-01 

76 

1  .  974E  01 

1 .0056*00 

9. 1596-01 

77 

1  . 956E-0I 

1 .0066*00 

9.  1526-01 

78 

1  .969E-0I 

1 .0066*00 

9.  1646-01 

FM';ElieLE  AVFPrir-FF 


Frtfl'JG  lEW-'PVG  XPFFA'JF-  URFFAVG 

4e5.S3Et0C?  540,0?  9.3I5E-0?  2.373E*0r 

TEItPSIGTrtVG 
5,353E*0? 

RF  illOLDG  MO 
4  .giGOr  *05 


PPGVC- 
I  .  ?60E  <0  I 
MUPtP 
I  .?3?E-05 


QPEFftVG 
I  .:4BE*0I 
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TABLE  Bll 


BLADE  COEFFICIENT  OF  PRESSURE  SCALED  DATA  FILE  PRINTOUT 


BLADE  SCALED  DATA  FILE  B-I7APR5CL 


rnoBE  DATA  ASSOCIATED  Ulltl  HIE  BLADE  DATA  IS  CONTAINED 
IN  FILE:  U-I7APR7SCL 
SCAN:  <9 

5CANIUALDE  PRESS  (INCHES  H2o  ) 

PORT 


1 

2.e0OE  02 

2 

1 .255EI0I 

3 

1 .322Et0l 

4 

-3.E62Et00 

5 

-1 . IOOEt00 

B 

3.300E  01 

7 

9.3PCE  01 

8 

1 .e92E*O0 

9 

9. I20E-OI 

10 

7. l0eE-0l 

1  1 

7.26eE-0l 

12 

7,7SOr-0l 

13 

1 .04r,c'0o 

1  4 

1 .ee2E»00 

i  5 

2.478Et00 

IS 

2.27eEiO0 

1  7 

1 .4GOE'00 

18 

1 .7S0EI00 

n 

:.44OET00 

'0 

3.99SEI00 

2  1 

4.8OPe*0O 

22 

7.302E*00 

23 

-1 .825E(ei 

24 

-3.427EI0I 

rs 

-3.3B2EI0I 

26 

-3.1 1 lEfCI 

2  7 

-2.435E*0I 

29 

-1 .991E'PI 

23 

-1 .49SE'0I 

30 

-1 .333E*0I 

31 

-1 . I43E'0I 

32 

-9. OSCE *00 

33 

-7.350E'e0 

34 

-6.03SE*00 

35 

-5.020E 100 

3B 

-4.3S8E'0O 

37 

-3.970E  *00 

38 

-3.69GE*O0 

33 

-3.428E'00 

40 

-3.336E*00 

4  1 

-3. IGBE'0O 

42 

-3. l04F*e0 

43 

9.GO0E  01 

44 

-9. 9SGE  >00 

45 

-3.5I4E'0O 

45 

1 .728E'00 

47 

1  .  I42E*00 

48 

-r.8BGE*00 

1  ">0 


TABLE  B12 


BLADE  COEFFICIENT  OF  PRESSURE  REDUCED  DATA  FILE  PRINTOUT 


BLADE  CP  FILE 

B-29M(^RTCOLC 

SCANIUALUE 

MASS  AVERAGED  COEFFICIENT 

PORI 

OF  PRESSURE 

4 

2.43IE-01 

5 

3.733E-01 

6 

4.484E-0I 

7 

4.777E-0I 

8 

4 .877E-01 

9 

4.e29E-0l 

10 

4 .S75E-0I 

1  1 

4.772E-0I 

12 

4 .6B3E-0I 

1  9 

4.845E-0I 

1  4 

5.293E'0I 

15 

5.BI0E-0I 

IB 

5.5I2E-0I 

I  7 

5.O64E'0I 

18 

5. l80E-f 1 

19 

S.530E'0I 

90 

6. 3976-01 

:i 

G.e3IE-0l 

11 

9. 1 7IE-0I 

23 

-S.066E-0I 

21 

-  1 . 384e+0O 

25 

-1 .347E*0O 

26 

-1 . 2056*00 

27 

-6.G38E-0t 

29 

-5.S32E-0I 

29 

-3.S57E-0I 

30 

-2.797E-0I 

31 

-1 .8IBE-0I 

32 

-5.4126-02 

33 

4.O36E-02 

34 

I .097E'0> 

35 

1 .G33E-0I 

36 

1 .gBTE-OI 

37 

2 .250E'01 

39 

2.34IE-0I 

39 

2.482E-0I 

40 

2 .551 E- 01 

4  I 

2.655E-01 

42 

2.689E'0I 

43 

7.799E-0I 

44 

-9.2G9E-02 

45 

2.444E  Cl 

-  45 

5.2I0E-OI 

47 

4 .SgiE-OI 

48 

2.805E-0I 
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B . 7  IMPROVEMENTS 


Improvement  in  the  method  of  obtaining  probe  survey  data 
can  be  made  by  changing  the  three  programs  involved.  Changes 
will  make  data  acquisition  more  efficient,  reduce  the  chance 
of  erroneous  entries  and  provide  more  accurate  data. 
Recommendations  include: 

1.  Classick's  [Ref.  6]  recommendation  on  DVM  error  correc¬ 
tion  is  reiterated  here. 

2.  Dynamically  size  the  arrays  in  "CALC."  ("LOSS  and 
"ACQUIRE"  have  been  dynamically  sized  in  data  files  and 
arrays . ) 

3.  Establish  data  files  to  include  survey  scan  number  and 
probe  position  to  be  used  in  flow  field  mapping. 

4.  Convert  the  use  of  "1"  and  "2"  in  previous  programs  to 
"1"  and  "u"  for  upstream  and  downstream  positions.  This 
would  make  program  flow  and  conversion  easier. 

5.  Do  not  combine  "CALC"  and  "LOSS"  as  recommended  by 
Classick.  Combination  would  require  repetition  of 
"LOSS"  in  "CALC"  for  mass-averaged  and  mixed-out  losses. 

B8.  SUMMARY  OF  PROGRAM  STEPS 

All  commands  except  RETURN  are  executed  by  pressing  the 
soft  keys  fl-f8  corresponding  to  the  labels  appearing  at  the 
bottom  of  the  screen. 

The  following  is  a  summary  of  program  steps: 

1.  DVM,  SCANNER  and  Scanivalve  controller — ON 

2.  Disc  Drive — ON 

3.  Disc  Drive  Amber  lights — Extinguished 

4.  Computer,  Monitor  and  Printer — ON 

5.  LOAD  "/CLASSICK/PROGS/ACQUIRE" 
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6 .  RETURN 

7 .  Press  RUN 

8.  Type  raw  data  file  name  for  probe  survey  without 
quotation  marks. 

9 .  RETURN 

10.  Type  scaled  data  file  name  for  probe  survey  without 
quotation  marks. 

11.  RETURN 

12.  Type  atmospheric  pressure  in  inches  Hg. 

13.  RETURN 

14 .  Press  ONE  PROBE  or  TWO  PROBES 

15.  Type  scan  number,  probe  position.  For  two  probe  option, 
type  scan  number,  lower  probe  position,  upper  probe 
position . 

16.  RETURN 

17.  Press  REPEAT  or  RECORD 

[REPEAT  returns  prompt  for  scan  number  and  position  of 
data  point  to  be  repeated.  RECORD  stores  data  to  the 
file.  ] 

18.  Press  GO  ON  or  END  PRB  DATA 

[GO  ON  returns  prompt  for  next  scan  number  and  probe 
position.  END  PRB  DATA  terminates  probe  data 

collection. ] 

19.  Press  GO  ON  or  COLLECT 

[GO  ON  by  passes  instrumented  blade  data  collection  and 
returns  print  option  prompts  (Step  20) .  COLLECT  returns 
prompt  for  instrumented  blade  raw  data  file.] 

a.  Type  raw  blade  data  file  name 

b .  RETURN 

c.  Type  scaled  blade  data  file  name 

d.  RETURN 
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Press  REPEAT  or  RECORD 


e . 


[REPEAT  repeats  the  blade  pressure  scan,  RECORD 
stores  data  to  the  file. ] 

20.  Follow  the  print  option  prompts 

Note  that  this  is  the  only  time  to  obtain  a  hard  copy  of 
the  raw  and  scaled  probe  and  blade  data. 

21.  Press  GO  ON  or  CALC 

a.  GO  ON  terminates  "ACQUIRE."  Note  that  "CALC"  can  be 
executed  later  by  the  commands: 

1.  LOAD  "/CLASSICK/PROGS/CALC" 

2.  Press  RUN,  loads  and  executes  "CALC" 

b.  Proceed  at  Step  22 

22.  Type  the  scaled  probe  data  file  name  created  in 
"ACQUIRE. " 

23.  RETURN 

24.  Type  the  probe  calibration  coefficient  file  for  X 
(velo-'  ity)  . 

Note  that  for  this  work  MIKEC3  is  the  X  file. 

2  5 .  RETURN 

26.  Type  the  probe  calibration  coefficient  file  for  Phi 
(pitch) . 

Note  that  for  this  work  MIKEC2  is  the  Phi  file. 

27.  RETURN 

28.  Press  ONE  PROBE  or  TWO  PROBES 

[TWO  PROBES  will  prompt  the  user  for  the  upper  probe 
calibration  coefficient  files  for  X  and  Phi] 

29.  Type  the  file  name  for  the  data  to  be  reduced  from  the 
scaled  data  file.  For  two  probes,  a  second  reduced  file 
name  is  required. 

30.  RETURN 
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31.  Type  in  the  probe  block  to  vertical  angle. 

32.  RETURN 

Note  that  this  angle  was  40.4  degrees  for  this  work. 

33.  Type  in  the  low  limit  scan  #  for  the  Reynolds  number 
integration . 

3  4 .  RETURN 

35.  Type  in  the  high  limit  scan  #  for  the  Reynolds  number 
integration. 

3  6 .  RETURN 

37.  Press  REDUCE  DATA  after  amber  light  quits  blinking. 

38.  Press  GO  ON  or  BLADE  CP'S 

[GO  ON  returns  prompt  to  load  "LOSS"  (Step  39)  ,  BLADE 
CP'S  prompts  for  scaled  blade  data  file] 

a.  Type  blade  scaled  data  file  name 

b .  RETURN 

c.  Type  the  file  name  for  the  data  to  be  reduced  from 
the  scaled  data  file 

d .  RETURN 

e.  Type  scan  number  associated  with  lower  limit  of 
integration  of  probe  lower  blade-to-blade  survey 

f .  RETURN 

g.  Type  scan  number  associated  with  height  limit  of 
integration  of  probe  lower  blade-to-blade  survey. 

h .  RETURN 

i.  Press  BLADE  DATA  after  amber  light  quits  blinking 

39.  Press  GO  ON  or  LOSS 

a.  GO  ON  terminates  "CALC"  and  would  be  the  choice  if 
only  one  of  the  survey  pairs  had  been  conducted. 
Note  that  "LOSS"  can  be  executed  later  by  the 
commands : 
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1.  LOAD  "/CLASSICK/PROGS/LOSS" 

2.  Press  RUN,  loads  and  executes  "LOSS" 

b.  Proceed  at  Step  36 

c.  Note  that  "LOSS"  requires  upper  and  lower  probe 
blade-to-blade  reduced  data  file  names. 

40.  Type  the  lower  probe  blade-to-blade  survey  reduced  data 
file  name. 

4 1 .  RETURN 

42.  Type  the  lower  probe  survey  maximum  scan  number. 

4  3 .  RETURN 

44.  Type  the  upper  probe  blade-to-blade  survey  reduced  data 
file  name. 

4  5 .  RETURN 

46.  Type  the  upper  probe  survey  maximum  scan  number. 

47.  RETURN 

48.  Type  the  scan  number  corresponding  to  the  lower  limit  of 
integration  for  the  lower  probe  survey. 

49.  RETURN 

50.  Type  the  scan  number  corresponding  to  the  upper  limit  of 
integration  for  the  lower  probe  survey. 

51.  RETURN 

52.  Type  the  scan  number  corresponding  to  the  lower  limit  of 
integration  for  the  upper  probe  survey. 

53.  RETURN 

54.  Type  the  scan  number  corresponding  to  the  upper  limit  of 
integration  for  the  upper  probe  survey. 

55.  RETURN 

[Note  that  integration  interval  for  both  upper  and  lower 
probes  must  be  exactly  equal  even  though  the  scan  number 
entries  may  not  be  the  same] 
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56. 

57  . 


Program  " 
out  flow 


LOSS"  terminates  after  mass  averaged  and  mixed 
conditions  and  losses  have  been  calculated. 


Information  from  loss  is  automatically  printed  out 
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TABLE  B13 


ACQUIRE  PROGRAM  LISTING 


1 1 

;2 

13 

52 

53 

54 

55 

56 

57 
59 
B0 
61 
62 
B3 

65 

66 
67 
6!) 

70 

71 
73 
24 
76 
7  ? 
78 
00 
81 
02 
83 
04 
86 
0  ? 
89 
■J0 
91 
02 
93 
0  4 

95 

96 

98 

99 
101 
(02 
103 
I  05 
106 

107 

108 
109 
I  (0 
I  I  I 
112 
1  I  3 
I  14 
I  16 
I  17 
I  IB 
I  19 
122 
124 
175 
126 


((’/(06WHI  ntU'llItt. 

niiis  pnoGonti  ncouints  min  rnoH  s-iiole  pnocf  surveys  ond  pressure 

(OISTRIBUIION  FROM  ON  INSTRUMENIED  OLOOE .  SEE  CLRSSICK  U.S.  THESIS 
I5EPI  89  FOR  PROGRnn  OESCRIPIION  ONO  OETniES. 


. . . .  oiHENSiOM  npnnys  . . . . 

OPIION  BnSE  I  IBnSE  or  nPG.n  UILL  BE  ONE  INSEOn  OE  2ER0 

DIM  RoudntI I . 106)  IIHI5  RROnY  OILL  nCfOMOOniE  BOIH  40  PORT 

iscnNivntvES  mio  ic  ciinNiiELS  from  the  sconijer 

DIM  Scnledl  1  ,  106)  1  nRRflY  USED  IN  PRINTING  PROBE  &  CnSEflOE  PRSSURES 

1 10  SCREEN 

DIM  Prntdotnl  I  .40)  I  nRRPY  USED  IN  PRINTING  BLBDt  PRESSURES  10  SCREEN 

DIM  Prntdpitbl  I  .48) 

Mni  Prnldota-  (0)  IIWIIinLLY  EILIS  BROny  UITH  2ER0S-IE  ENTIRE  nRUOY 

IIS  NOI  EIIIFI.  OIIII  Dn:n.  1HEN  REMOINDER  Oi  OnROY 
lUILL  CDNiniN  2ER0S. 


Mni  Prnidntb-  (0) 


I . .  vmiinoLES  . . . . til.. . 

Oport-1  (OESIRIO  PORI.  IT  IS  DESIRED  TIinT  THE  SCnNIVnCVE 

IBEGIN  ni  PORI  I  . 

Hporl-u  HUGH  PORI,  cnsi  PORI  ON  THE  SCnNIVOLVE  HIRT  IS 

lOE  INIERESI. 

Dn-irla-l  ISAMF  nS  EiROVE  EXCEPT  IT  PERTRINS  TO  SCRNIVOLV- 

IRF  served  I  or  INSIRUlIfNIED  DLADF  SJRVEY. 

llnorta»4n  inn  PORI  USED  ON  THE  BLODE  SURVEY 

D|ioilb*l  IIN  lUO  PROOF  SURVEYS.  MORE  PC  .IS  nilE  USED- THE 

lEIESIREO  PORI  IS  SIILL  I  . 

Hpo'  tb’io  ansi  PORI  or  inieresi  ron  luo  probe  surveys. 

ScntanprI  .'10  I SCONNER  CHONNEL  ASSIGNED  TO  THERMOCOUPI  E 

Srnvn..iclin’74  I  "  •'  "  "  YOU  TRONSDUCER. 

Sroynurlu.l '24  I  "  "  “  “  I.OUER  PROBE  YOU 

nnmispijEiR  ron  luo  probe  surveys. 

Scnynucliri.1'2  I  17  SCANNER  CHntINEL  ASSIGNED  TO  UPPER  PROBE  YAW 

I  IRANSnUEER  FOR  TUO-PonrjE  SURVEYS. 

Srnvn-1  ISCnNIVALVE  USED  FOR  INSIRUMENIEP  BLADE. 

Srnvb-?  !  “  "  "  PROBE  &  CASCADE  PRESSURES. 

Srri'709  I  SCANNER  BUS  niKIRESO 

S/c-70  7  ISLANIVniVE  CONIROI  LER  BUI"  ADDRESS  (  UG  7BK  ) 

Dvn-722  lOIGIIAl  VREIMEIER  DUS  AIXIPPSS 


Scnr  dflvc'  1 

Scnr  dflvc:a-0 
ScTir  dsvrb  - 1 


S  '  '  in  I  [;n  vfn  -  40 
Srnn I pn  vcb' 4  I 
Scr.linsvrn'  45 
Scii)in5vcb'46 
Mn«dl I- .000050 
Pr  nl er '70  I 
Scf  en- I 

L0AD5UB  All  EROM 
li.iSS  SIORAGE  IS  ' 


ISCANNl..  CHANNEL  ASSIGNED  10  READ  SCANlVnLVE 
ICONIROILER  (SCANIvniVE  READ  IS  THE  ONE  EOR 
IPROBE  AND  CASCADE  PRESSURES.) 

(SAME  ns  ABOVE  EXEEPI  THE  SCANIVALVE  READ  IS 
HUE  INSIRUIIFNIED  BLADE  PRESSURES 
ISAME  ns  ABOVE  EXCEPT  SCANIVALVE  REE’)  IS  IRE 
TONE  ron  PROBE  »  CASCADE  PRESSURES  UHEN  r-rnoIlF 
lOPIION  IS  Sri  EClED. 

ISCANNER  CUANNIL  RSSIGNED  10  SIEP  SCRNIVALVE  R 
)  ••  ■■  D 

ISCRNNER  CHANNEL  ASSIGNED  TO  HOME  SCANIVALVE  A 
I  ••  '•  "  "  B 

lERBOB  IBi^  ron  SPURIOUS  DVM  tlERDINGS. 
inUS  ADDRESS  FOR  PBINIER 
I  BUS  RtlORESS  FOR  MONITOR 
"/ELnSSICK  /  BOU 1 1 NE  5  /  SUBAE  QUIRE’ 

•/CLASSICX/ORin lALIOUS  RAU  DATA  FILE  NAME  TO  BE  ENIEBED 

ini  iME  PBOiiTi  uiiiiouT  PAiiiNAnr 


FOR 


PRINT  " . . . . . . . 

PRINT  •" 

PRINI  ’NAME  FIIE  FOR  DIF  RRU  DAIA  10  BE  COLIECIEI)  FROM  THE  PBOBEIS)’’ 

INI’UI  Ra,,iMlr* 

CRERD  nriAI  R.a.jf  <  1  .  1 00 . 04  8  IRRUrilEt  IS  A  SIRINC  VARIARIE  ASSIGNEn 

I  DIE  BA’JIIIE  NAME  TO  BE  ENTERED  AT  IMF  RROflP  I 
IIMIS  IDE  IS  100  RECO,  JS  (ENOUGH  EOR  100  DRIA 
IPOINIS)  EACH  RECORD  CAN  CONIAIN  I0R  REAL 
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TABLE  B13  (CONTINUED) 


127 
I  20 
123 
I  30 
t  32 
I  33 
I  31 
!35 
!  3G 
I  37 
I  30 
133 
140 
1  • ' 
M2 
M3 
1 11 
MS 
MG 
147 
140 
M3 

150 

151 

152 

153 
151 
155 
157 
150 
153 
160 
I  6 1 
ir.2 
163 
161 
1G5 
166 
if;  7 
163 

170 

171 

172 

174 

175 

176 
1  77 
170 

173 
190 
181 
IB.' 
183 
I  PI 
1  05 
IBP 
107 
IP-’ 
130 
13  1 
13  3 
I  31 
136 


INUnOERS  84106  848. 

ASSIGN  Prnthi  TO  RouflM#  iflSSIGNS  A  PATH  NAIIE  10  THE  RAU  EIIE  JUST 

ICREAIEn  FOR  ENTER  AND  OUTPUT  STATEMENTS. 
MASS  STORAGE  !S  •■/CLOSSICK'/REODAIA' 

PRINT  • . . . . . . 

prin: 

PRINT  •NAME  FILE  TO  STORE  THE  RAU  OAIA  SCALED  TO  ENGINEERING  UNITS" 
INPUT  ScHlIe* 

CREATE  BOAT  Scl T 1 1 et . 1 00. 94  8 
assign  PPeith2  TP  Sclflle* 

PRINT  ■ . . . .  . . . 

PRINT  •••■ 

PRINT  "ENTER  THE  ATMOSPHERIC  PREStlRE  'N  INCHES  HG" 

INPUT  Pbrtr'O 
PRINT 

PRINT  . I . . . . . . . 

PRINT 

PRINT  "PRESS  "ONE  PROBE""  IF  ONE  PROBE  IS  USED." 

PRINT  "PRESS  ""TUO  PROBES'"  IF  TUO  PROEIES  ARE  USED." 

PRINT  "" 

PRINT  . . . . . . . . . . . 


PR1NI  ■■■ 

ON  KEY  1  I  ABEL  "ONE 
ON  KEY  4  I.ADE1,  "TUO 
Spl  n  I  GOTO  Sp  1  ftl 


Nunber'pr  bs  1  ' 


PROBE  "  GOTO  Nunbet-prbsl  ICODING  FOR  SOFT  KEYS 
PROBES  "  GOTO  Nunbct  prbs? 

IKEEPS  SOFT  KE'"  LABELS  ON  SCREEN  UNTIL 
lEITMER  SOFT  KE  "  IS  PRESSED. 

Noofprbs-l  INUMBFR  OF  PROBES  DETERMINES  UIIERE  TO 

I GO  IN  THE  PROGRAM. 

GOTO  Cbf cK nooTprbs 

Niinb^  p  ..  2 :  Noofprh^-? 

Cbeclr  noo.  pf  hs  :  IF  Noofprbs‘2  THEN 

Stf)r  t2prb»:  INPUT  "ENIER  THE  SCAN  NUnBER,  LOUER  T  RODE  POSITION  AND  UPPER  P 
ELSE 

Siar  t  Iptb;  INPUT  "ENIER  THE  SCAN  NUMBER  AND  PROBE  POSIT  I  ON"  .  Scan  ,Pos  M 
PRINI 

PRINT  ' . .  •  4  .  .  .  .  f  t  .  .  . .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  . . 4  4  4  4  •  4  4  I  4  4  " 

END  IF 

COM  /PosUvcbls/  Svc.Scn  1COMMON  BLOCK  VARIABLES  USED  IN  POSITIONING 

HUE  SCANIVALVE  P0R1S. 

coil  /Raarivr'bis/  Scan.Dvn.ScanvbTl.lS),!  enpnhnrd  .  Yaucbnrd ,  Scnyauchn  .  Sent  enp 
COM  /rjeadvcblfl/  YatJCbnrdl  ,  8c'./awc1"iii ,  Senyaucimj  .Maxdlf 

lABOVE  COriMON  BLOCK  VARIABLES  USED  IN 
10BIAINING  DVM  readings. 

IF  Noofpi  bfi'2  THEN 
GOTO  RearI2prb5 
ELSE 

GOTO  Randlprb 
END  IE 

Read2prb5:rniNr  "SCAN  ►"mBCR  " i  Scan 
PRINI  "lOUER  PROBE  POST  1 1  ON  "  iPoa  1  H 
PRINI  "Uf'lER  PROBE  POST  IION  "  iPosHii 

PRINT  "PORI  VOLTAGE  GAUGE  PRESST INCHES  H2o)  " 

MA I  Sr  nnvh“  (  0 1 

FOR  nb-Dr.-rlb  TO  Hportb 

CAi  L  Scnvpor  t  poo  1 1 1  Senvb .  Oil .  Senbn?;  vcb .  Sens  t  P3  vch  )  ICALLS  5UDROUTJNE 

no  POSITION  SCANIVALVE  PORTS.  INITIALLY  IT  UILL 
IPOSIIION  SCNI VALVE  TO  PORT  I. 

CALL  RciifJrlvnl  Db  ,  Serif  dovrb  )  ICTiLLS  SUBROUTINE  TO  READ  THE 

II1.E  SCANIVALVE  PORT  READINGS  ON 
I  THE  OVA. 

PrntrlothM  ,  n-5eanvbM  .  1  )4  10000  ICONVEaIS  OVM  READINGS  TC  PRESSURE 

I  VAl  UE 

IF  Dt),  I  IHFN  Pr  rildatbl  I  .Dbl-Scanvbl  I  .Oh)"  10000  PrnldalbT  '  .  I  )  lALIOUS 
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197 

I9B 

ZB® 

ZBI 

ZB7 

ze3 

ZB4 

ZB5 

Z0G 

Z07 

Z08 

ZIB 

Zl  I 

ZIZ 

Z  13 

Z  15 

ZIB 

ZIZ 

ZIB 

Z  19 

ZZB 

ZZI 

ZZZ 

ZZ3 

ZZB 

ZZB 

ZZB 

Z79 

Z3I 

Z3Z 

Z33 

Z35 

Z3G 

Z37 

Z3B 

Z39 

Z-IB 

Z-ll 

Z4Z 

Z-ll 

Z44 

Z45 

Z-IG 

Z-18 

Z49 

Z50 

Z5I 

Z5Z 

Z53 

ZBH 

755 

Z5S 

Z57 

Z58 

Z59 


IPOni  I  REODING  TO  BE  SUBIROCTED 
(FROM  OTHER  READINGS. 

PRINT  USING  ••OO.IBX.MD.3DE.I0X.HO.3OE"lOb,5canvb(  I  .Dbl  .Prntdaibl  I.Db) 

NEXT  Db 

CALL  ReaddvnlDb.Senyauchnl  )  IDb  IK  THIS  CONTEXT  ACTS  AS  A  DtmflY 

I  VARIABLE.  OVM  READS  THE  LOUER  PROBE  YAU  IRANSDUCER. 
CALL  ReaddvnIOb.Scnyaucbnu)  (UPPER  PROBE  YAU  TRANSDUCER  IS  READ. 

PRINT  . . .  If  . . 

PRINT  “LOUER  PROBE  YAU  CHAN  READING  "lYaucbnrdl 


Yaul  •Yauc(inrdl  •  IBBB 

PRINT  "LOUER  PROOE  YOU  (DEGREES) 
PRINT  "UPPER  PROBE  YOU  CHON  READING 
Yauu"Yauchrirdu«  1000 


I  THIS  IS  UllERE  THE  REFEHENCINCt 
(CORRECTION  FOR  T((E  YAU  ANGLE  IS  MODE 
"  I  yai.ll 
" I Yauchnrdu 

(MOKE  THE  REFERENCING  CORRECTION  FOR 
(UPPER  PROBE  YOU  ANGLE  HERE. 

" I Yauu 


(CODING  FOR  READING  ONE  PROBE  BEGINS 


PRINT  "UPPER  PROBE  YOU  (DEGREES) 

GOTO  Cnnllriue 

Read)prb:PRINT  "SCAN  NUMBER" I  Scan 
PRINT  "PROOE  POSITION'iPosIt 

PRINT  "PORT  VOLTAGE  GUA6F.  PRESSURET  INCHES  HZo)" 

MAT  Scanvb-  (0) 

FOR  D'Oporl  TO  Hpor t 

CALL  Scnvpor t po6 1 1 (  Scnvb , D , Scn(»navcb , Sene t pB vcb )  (CALLS  SUBROUTINE  TO 

(POST  MON  SCONIVOLVE  PORT. 

COLL  Readdvn(D.Scnrdavc)  (COLLS  SUBROUTINE  TO  READ  SCONIVOLVE  PORTS 

(ON  THE  DVM. 

Prnldalb( I , ( )*Scanvb( ( . ( )»(0000  (SCALES  DVM  READINGS  TO 

(TO  ENGINEERING  UNITS. 

IF  OX  THEN  Prntdalbl  I  .0)*Scaiivb(  I  .O)*I0000-Prntd8lb(  I  ,  (  )  (PORI  ( 

(READING  SUBIRACTED  OFF  THE  SCONIVOLVE 
(PORT  READINGS. 

PRINT  USING  "DO.  I0X.HO.  30E.  I0X.MD.  30E"i0.Scaiivb(  (  ,D)  ,Pr  nidntb(  ( .D) 

NEXT  0 

PRINT  . . . . . . . 

COIL  Rcndr(vn(  D.  Scnyauclin ) 

PRINT  "YAU  CHAN  READING  "lYaucImid 

YnvYauclinrd*  (000  (THIS  IS  UHERE  TO  CORRECT  FOR  PROBE  YAU  REFERENCING 

PRINT  "YAU  (DEGREES)  "lYau 

Conti nue:C ALL  ReaddvnT  Ob . Sen tenpehn) 


PRINT  "TEMP  CHON  READING 
T" Teripchnrd*  (000 
Tenp-33.9(* 1*34. 75*460 


"l  Tenpc(inrd 


PRINT  "TEMPERATURE  (DEGREES  R) 
P8*Pbaro*(3.57 


(IRON  CONSTANIAN  THERIKICOUT'LE  EQUATION 
(SOME  ONE  USED  BY  ORE ON. 

" I  I pnp 

(ATMOSPHERIC  PRESS  CONVERTED  TO  INCHES  HZo 
PRINT  USING  "Z60.4X.ZO.ZO.K.4R.5X.3D.rO,5n"i"OTMOSPHEniC  PRESS  (INCHES)".? 
PRINT  "" 

PRINT  . . . . .  t.tt  I  tt  . . .  . . . 

PRINT  "" 

PRINT  "IS  DATA  OK7  PF(ESS  ""RECORD""  TO  RECORD  DATA.  PRESS  ""REPEnT" 

PRINT  "REPEAT  THE  SCAN." 

PRINT  "" 

PRINT  . . tit. 

ON  KEY  I  label  "RECORD"  GOTO  Sloraraudala 
ON  KEY  4  LABEL  "REPEAT"  GOTO  Repaatacan 


TO" 


ZG0  SplnZ:  GOTO  SplnZ 

Z6)  Repeatacanr  IF  Noofprb«-Z  THEN 
ZGZ  GOTO  SlartZprba 

ZG3  EISE 

ZG4  GOTO  Start (prb 

7G5  END  IF 

ZGb  Storeraudnta:  I  STORE  RAUDATR  TO  RAUDAIA  FILE 

ZGZ  IF  Noofprbs-Z  THEN 
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768 

tlOT  nouciHl-  (0) 

769 

FOR  K'l  TO  IS 

770 

Raudail  1  ,K  >«Scanvb(  1 ,K ) 

lASSIGN  ALL  THE  SCANIVALVE  REODINGS  IN  HIE 

771 

ISCONVB  ARRAY  TO  THE  RAUDAT  ARITAY  ELEMENT 

777 

IBY  element 

774 

NEXT  K 

775 

naudat<  \  ,2®)'PqsHI 

Z7B  RaiJdi!t<  I  .  Z  I  )*Po5Hu 

Z77  RaipdnK  I  ,7Z  >"YauchnrdI 

Z7B  Roudnt  (  I  ,  Z 3 ) "Youchnrdij 

Z79  Roudnt  (  I  ,  Z 4  ) "Tenpchrird 

Z80  Raudnt( I .Z5)-Pb 

Z81  OUTPUT  PPalhT .ScaniRaudaiT « T 

ZBZ 

ZH3 

ZBS  nnr  Scaled'  (0) 

Z8B  FOR  K-l  TO  19 

Z07  ScaledTl.K)  "Peril  dal  b(  I  ,  K  ) 

788 

Z90  NEXT  K 

Z9I  Seal ed(  I  . 70 ) 'Poe  1 1 1 

Z9Z  Scaled!  I  .71  I'Poellu 

793  Seal  ed!  I  ,  7 7  ) •’Yai.il 

794  Seal  ed(  I  .  7  3 1'Yain) 

795  Seal rd(  1  . 74  )"1 enp 

Z9S  ScaledC  I  .751-Pb 

797  OUIPUT  PPalhZ  ,  Scam  Seal  ed(  •  1 

798  ELSE 

799  MOT  Raudat"  (01 

300  FOR  K-l  TO  14 

301 
307 
303 

305  RaiidaK  I  ,K  I'ScanvbT  I  .K  1 

306  NEXT  X 

307  RaudaK  1  .  IBl'Posl  t 

309  RaLidatl  1  ,  IB)"Yauehnr'd 

309  Raudal  (  1  ,  1 7  )•  Teapctinrd 

310  Rnudat  (  I  ,  I  8  1 ’■Pa 

311  OUIPUT  BPalhl .ScaniRaudall • ) 
317 

313 

315  mot  Scaled-  (0) 

316  FOR  K-l  TO  14 

317  Scaled! 1 ,K 1-Prnldalb( 1 .K 1 

318 

370  NEXT  X 

371  Seal  ed(  1  ,  ISl'PoaT  I 
377  Scaled! 1 , 161-Yau 

373  Seal ed! I , 1 7 ) -Tenp 

374  Scaled! 1 . 18)-Pa 

375  OUIPUT  PPalliZ  ,  Scani  Seal  ed!  •  ) 


ITTIF  GOTO  IS  STORED  IN  THE  ROU  GOTO 
IFIIE  UMICH  uns  PREVIOUSLY  CREOIED. 
ITHIS  IS  0  RONDOM  OUTPUT  STOTEMENT. 


ISOME  METHOD  MERE  EXCEPT  SCOLED  GOTO 
TIS  REPlSSlGNED. 


IFOR  THE  ONE  PRORE  OPTION,  ASSIGNS 
lOLL  HIE  SCONIVOI  VE  REODINGS  IN  THE 

innnoY  to  the  roudot  orroy  element 

•BY  ELEMENT. 


I  THE  Dflin  IS  STORED  IN  THE  ROU  DOIO 
•  UMICH  OOS  PREVIOUSLY  CREOTED.  THIS 
•IS  n  RONOOH  OUIPUT  STOTEMENT. 


•SOME  METHOD  MERE  EXCEPT  SCOLED  DOTO 
•IS  REASSIGNED. 


376  END  IF 

377  PRINT  . . . . . . . . 

379  PRINT 

379  PRINT  "PRESS  " "GO  ON  "  TO  CONIINUE  TAKING  DAIA,  PRESS  -’"END  PRB  DATA 

330  PRINT  "TO  terminate  PROBE  DATA  COLLECTION." 

331  PRINT  "" 

337  PRINT  . . . . . . . . . . 

333  ON  KEY  I  LABEL  "END  PRR  DATA"  GOTO  Pr Inl f 1 1 enane 

334  ON  KEY  4  LAREL  "GO  ON"  GOTO  Collecldala 

335  Sp1n3:  GOIO  Splri3 

3 3G  Collecldala;  IF  Noofprba"?  THEN 
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337  GOTO  StarlZprbs 

338  ELSE 

339  GOTO  Start Iprb 

340  ENO  IF 

341  PniNT  . . . . . I. •....•...I.. 

34Z  PRINT 

343  Prlritf  llenane:  PRINT  "RRU  PROBE  ORTR  IS  STORED  " 

344  PRINT  "IN  DATA  FILE" .Rauf lie* 

345  PRINT  •••• 

34G  PRINT  . . . . . . . . . 

347  PRINT 

348  PRINT  "PROBE  RAU  DATA  SCALED  TO  ENGINEERING  UNITS" 

349  PRINT  "IS  STORED  IN  REOOAIA  FILE" .Self lie* 

3R0  PRINT  "" 

351  PRINT  . . . . . . . . . 

35Z  PRINT  "" 

353  PRINT  "ENSURF  THE  PROBE  IS  CLFAR  OF  THE  INSIRUMENTED  BLADE." 

354  PRINT  "" 

355  rniNT  . . . . 

356  PRINT 

357  PRINT  "  PRESS  ""COI.LFCI  DAIA""  TO  COLLECT  DAIA  FOR  THE  I NSTRUhENIED  BLADE" 

358  PRINT  "  PRESS  ""GO  ON""  TO  CONTINUE  UI TH  THE  PROGRAM." 

359  PRINl  "" 

360  ON  KEY  4  LABEL  "GO  OH  '  GOlO  Pr  Inlopl  loitl 

361  ON  KEY  I  LABEL  "COLLECT  DATA"  GOTO  Naneflle 
3GZ  Spln4:  GOTO  Splni 

363  Naneflle!  HASS  STORAGE  IS  "/CLASSICK/DAIA"  (CODING  FOR  INSTHUHENIED 

364  IBLAOE  SECTION  OF  PROGRAM  IS  SAME  AS  FOR 

366  PRINT  . . . 

367  PRINT  "" 

368  PRINT  "NClf  FILE  FOR  THE  RAU  DAIA  TO  BE  COLLECTED  FROM  THE  BLADE." 

369  INPUT  Rnubladfllc* 

370  CREATE  BOAI  Raubl arif 1 1  a* . 100, 384  I  100  RECORDS,  EACH  RECORD  CON  CONTAIN 

371  148  REAL  NUMBERS  8X48*384. 

373  ASSIGN  PPatb3  TO  Raubl adf He* 

374  MASS  STORAGE  IS  "/CLASSICK/REDOOTn" 

375  PRINT  "...... . . . 

376  PRINT  "" 

377  PRINT  "NAME  FILE  FOR  THE  RAU  BLADE  0010  SCOLED  TO  ENGINEERING  UNITS." 

378  INPUT  Sclbladftle* 

379  PRINT  "" 

380  PRINT  . . . . . . .  . . . . . 

381  CREATE  BOOT  Sclbladf  He*,  100, 384 
387  ASSIGN  PPalli4  TO  Sclbladflle* 

383  Bladeread:  MAT  Scanva"  (0) 

384  PRINT  "SCAN  NUMBER" . Scan 

385  PRINT  "PORT  VOLTOGE  GUOGE  PRESS!  INCHES  HZo)  " 

386  FOR  Oa^Dporla  TO  Hporta 

387  CAl.L  Scnvporlposl  l(  Scnva,Da,ScnhnBvca,5cnelpsvcBl 

388  CALL  Readdvnl Da , Senrdevea ) 

389  Prntdalal I .Dal-Scanval I ,Oa).|0000 

390  IF  Da>1  THEN  Prntdatal  I  ,Oa)*ScanvoM  ,0a)*  I0000-Prnldota(  I ,  I  > 

391  PRINT  USING  "DO,  I0X ,M0.  30E  .  I0X .MO- 3nE"  lOa .Scenval  I  .Da >  .PrtitdeteM  .Da ) 

39Z  NEXT  Da 

393  PRINT  . . . . .................I..." 

394  PRINI  "" 

395  PRINI  "IS  DAIA  0K7  PRESS  ""REPEAT""  10  REPEAI  THE  SCON,  PRESS  ""RECORD . 

396  PRINT  "TO  RECORD  THE  DATA." 

397  PRINT  "" 

398  PRINT  . . . . . . . . . . 

399  ON  KEY  1  LABEL  "RECORD"  GOTO  Storedala 

400  ON  KEY  4  LOPFL  "REPEAT"  GOlO  BlaHn  eafl 

401  SpInS:  GOTO  SptnS 
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40?  Sioredftla:  OUirUT  PPalhSi Sconvat ♦ ) 

403  OUTPUT  fPaJMiPrnTdatat  • ) 

404  PRINT  "THIS  DATA  IS  flSSOCIRTEO  UI IM  THE  LOST  SCAN  OF  FILE  ".ScHnat 

405  PRINT 

40G  Pr  1  fiTopI  i  on  I :  PRINT  "*»»  *t  t  1 1 1  ■•••#•§§•  i  •  i  ###••■•  t  *•«  f  •  t 

407  PRINT 

408  PRINT  "ALIGN  PAPER  IN  PRINTER.  " 

408  PRINT  "" 

410  PRINT  "TO  PRINT  OUT  A  TARUI  ATION  OF  THF  RAU  DATA  COI  I.FCTED  FROM" 

411  PRINT  "" 

41?  PRINT  "THF  PTtOBEIS).  PRFSS  ""RAU  TALL.'.  PRESS  ""GO  ON . 

413  PRINT  "" 

4  14  PRINT  "TO  CONIINUF  WITH  TUr.  PROORAM." 

415  PRINT  "" 


4IG 
4  17 
418 
413 
4?0 
t:  I 
4?? 
4?4 
4?5 
4?S 
4?7 
4?8 
4?9 

430 

431 
43? 
433 
4  34 
435 
4  3G 
437 
4  38 
4  39 

440 

441 
44? 
443 
441 
44G 

447 

448 

449 

450 

451 

453 

454 

455 

456 

457 

458 

459 

460 

461 
46? 

463 

464 

465 

466 

467 


PRINT  .....it.tf  t.t.t..  mil.  fif 

ON  KEY  I  LAPEL  "RAU  TORLE"  0010  Prlntroulable 
ON  KEY  4  ^AOFI  "GO  ON"  GOTO  Prlnloftloii? 

SptnS:  GOTO  SplTtO 

Prlnlraulalile!  MOSS  STORAGE  IS  "/CLASSICK/DATR" 

ASSIGN  ePathI  TO  Rauflla*  'STATEMENT  PUIS  FILE  POINTER  AT  BEGINING 

lOF  FUF. 

PRINT  "" 

PRINT  "PRFSS  ""ONE  FROm  IF  ONI  PRORk  UOS  USED." 

PRINT  "T’RESS  ""lUO  PROBES""  IF  TUO  PROBES  WERE  USED." 

PRINT 

print  . . . 

ON  KEY  I  I  ABEL  "ONE  PROOE"  GOTO  Nimberolprbs I 

ON  KEY  4  LOPFL  "lUO  PROBES"  GOTO  Nonlmrofprbs? 

Spin7i  GO  10  Spin? 

Nnnbero  O' |j»  I  :  Noof  pr-bs**  I 
GOTO  Hownonyprbs 
Nunberof  prba? :  NooTpibsa? 

Hounonyprbs!  IF  NooTprbS’?  THEN 
PRINTER  IS  Prnlrr  ISENDS  PRINT  STATEMENTS  TO  THE  PRINIkll. 

print  "It  . . . 

PRINT  "PROBE  RAU  DAIA  FILE  ".RaMfilat 
PRINT  "• ti.f .........  I.... 

PRINT  "SCAN  L  PRD  I  ?  3  4 

PRINT  POST!" 

FOR  N»I  FO  100 

ENTER  ePalTil  .NiRaurlall  .  )  ISIAIEMEHI  ACCESSES  THF  RAU  DATA  FILE  IN 

'RANDOM  MODE. 

ON  ENU  PPalhl  GOTO  Tuoprinlrawl  ISINCE  ALL  RECORDS  OE  A  FILE  MAY 

'NOI  BE  FILLED  (RECALL  100  RECORDS  UERE 
IRFSERVEO  FOR  100  DATA  POINTS)  .  THE  OH 
'END  SIOIFMENT  ALLOUS  THE  PROGRAM  TO 
ICONIINUE  01  THE  Tiiopr  I nt t  aul  LINE  WHEN 
IAN  END  OF  FILE  CONDITION  OCCURS. 

PoslH'Raurlall  l.?0) 

Pork  I  -Rrauiilatl  1,1) 

Por  l?'“RauHa1  (  I  ,  ?  ) 

Por T 3 'Rnnjnt ( I , 3 ) 

For  1 4-'Rni(HaI  11,4) 

Pnrl5“Rati(Jnt(  I  ,5) 

print  USING  "40,3X,4D.7D,3X,Mn.3DF,3X,MD.3DE  ,  3X,MD.  3DE  ,  3X,MD.  3I)E  ,3X,MD.3DE" 
NEXT  N 

Tuor-nlntreij):  PRINT 

PRINT  "SCAN  6  7  8  9  )0 

FOR  N"I  TO  10/0 

ENTER  PPalh) ,N|Raudall  • ) 

ON  END  PPallil  GOTO  Tuopr  t ntr  au? 

Por  IB 'Ra./ilat  <  1,6) 

PorE7-nBudaT<  1 ,7) 
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IBB  Pur<8>n.iudaK  I  .8) 

'IB"  »'oi  i3^i<audai» 

47@  Por  US’RaudaK  \  , \®1 

471  Peril  l-RautlBt(  1  . 1  I  ) 

477  PRINT  USING  "40. 3X .MD.  3DE  .  3X .fID.  3tlT  .  3X .HD.  30E  .  3X .MD.  3tlF  , ZX.MtI.  3Ut  .ZX  .MD.  3Di 

473  NEXT  N 

474  Tuorrlntr  ai.>7:  PRINT  1 1 .  t  . . 

475  PRINT  "SCRN  U  PRB  12  13  14  IS 

47G  PRINT  POSIT- 

477  FOR  N*1  TO  lew 

478  ENTER  ePalltl  .NiRoudatl  •  1 

479  ON  END  PPalh!  GOTO  TuoprlnlrauS 

400  Posltu-RaudaK  I  .21  I 

481  Pori  12'RauUoK  1  .  12  ) 

487  Por  iI3-Rnudal(  I  .  13) 

483  PorlM-RatidaK  I  .  14  ) 

484  PorilS-'Rai.idnll  I.1S) 

485  PorllG-RaiidaiT  1  .  IB) 

40E  PRINT  USING  "40.  3X. 40.  ZD. 3X .MO.  3DF  .  3X .HO.  30E  .  3X . HD.  3DE  .  3X.MD.  301 . 3X  . HD.  3liF  " 

487  NEXT  N 

488  Tuopr  1  ntf  aij3 :  PRINT  "•  i  1 1 1  #  i  •  t  1 1 t  •§■  t  #•■•  1 1  ■•■■■» 1 1  i  •  t  ■  1 1  •#  # 

489  PRINT  "SenN  17  18  19  " 

490  FOR  N-\  TO  (00 

491  ENTER  PPaihl  .NiR.iudoK  •  ) 

492  ON  END  fPathI  GOTO  luoprlnlrau4 

493  PorH7-Rau(Jn»(  I  .  17) 

494  PortlB’RniidaK  I  .18) 

495  Porll9'R.Hid.at(  1 .19) 

49B  ParRoiidatT  I  .25) 

497  PRINT  l!5iNG  "40. 3X  .  MO.  30E  .4X  .  MO.  308 .4X.t1D.  30E'' i  N.Por  t  IT.Pori  1 0  .Pori  1 9 


490 

NEXT  N 

PRINT  "SCRN  YOU  L 

YOU  U 

IEI1PCHN 

fllHOB" 

501 

PRINT  "  VOLT 

VOLT 

VOLT 

PRESSURF" 

502 

FOR  N'l  TO  100 

503  ENTETT  PT  alhl  .N(na«doi(»  ) 

504  ON  END  PPathI  GOTO  TuoprInlr«u5 

505  Yauclirirdl  •Rrudal  (  I  .  72  ) 

50B  Yai.ic)inrdiJ'‘Raijda  M  I  .  23  ) 

507  Tenprhnrd'RciudalT  1.24) 

508  Pa-RaudalT  I ,25) 

509  PRINT  USING  "40.  3X  .MO.  3DE  .  4X  .HD.  3DE  .4X.MD.  30E  .4X .  30- 70"  i  N,  Yauclinrd)  .  Yaucliiir 

510  NEXT  N 

511  TuorTldirauS:  OTP  END  prallil  ITERMIHRIES  THE  ON  END  COMIIRNO 

512  ELSE 

513  PRINTER  IS  Prnler 

514  PRINT  "tf. . 

515  PRINT  "PROOE  RRU  ORIR  FILE  "  .R.iuf  1 1  ct 

516  PRINT  " . . . . . . 

517  PRINT  "SCRN  PROBE  12345" 

518  PRINT  "  POSIT" 

519  FOR  N'l  TO  100 

520  ENTER  PPailil  .NiRaodatf . )  ISiniETIFNI  OCLESBFS  THE  RRU  DRTR  FILE  IN 

571  IRRNOOM  HOOF 

523  ON  END  PPathl  GOTO  Prlniraul  I  SINCE  RLl  RECORDS  OF  R  FILE  MRY  NOT  HE 

524  tFIlLEO  IRECRLL  100  WERE  USED  FOR  100 

575  IDRTR  POINTS).  ON  END  STflIEHTNT  RLl  OUS  HIE 

57G  IPROGRRM  to  CONTINUE  RT  THE  Prtnlroul  LINE 

578  PosH-RocidoK  I  .15) 

579  PorM-R.iiidiK  I  .  I  ) 

530  PoriZ-RoudoK  I  .2  ) 

531  Por  1  3'‘Rai.»dnt  (  1  ,  3  ) 

537  Pori4“RoudoiT  1 ,4 ) 
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533  Por  l5"Rd(.<cJat  (  1 ,5 ) 

53'!  PRINT  USING  "40.  ZX .  <D.  7tl,ZX  .MO.  305  .ZX.HO.  3|1F  .  7X.MP.  3Dt .  ZK  .MO.  3DF  ,  ZX.fID.  3nF 
535  NEXT  N 

55b  Prinlibu'i*  rRiNT  •*•••••  f  i  t  *•§•■•«  i  1 1  ■  i  1 1 1  ■  t  ■•■■■■  i  •  i 

537  PRINT  "SCRN  G  7  8  9  10  11 

538  FOR  N-1  TO  100 

533  ENTER  8Palhl  .NiRautlail  •  ) 

540  ON  ENO  PfaUil  GOTO  Prlrili  ouZ 

541  PorlB^RabUatT 1 ,6) 

54Z  Port7*RaiJtlBt(  1  .7) 

543  Por  1  S^Rauilal  (  I  ,8  ) 

544  Porig-RaudaK  I  ,9) 

545  Por 1 1 0'Raudat (  1 , 1 0 ) 

54G  Port  I  l-RrLirif,1(  I  .  1  1  ) 

547  PRINT  USING  '  ^O.ZX  .MO.  3DE  .ZX  .HD.  3tlF  .ZX  .HD.  3DE  .?X  .HO.  3DE  .  ZX  .MU.  3DE  .  ZX  .nu.  3tJE 

548  NEXT  N 

549  PrlnlrauZ:  PRINT  t t ....... t i .. t , 

550  PRINT  "SCON  IZ  13  14  VOUCIION  TEMPCMON  OT 

551  PRINT  ■■  VOLTRGE  VOLTOGE  PR 

S5Z  FOR  N*l  TO  100 

553  ENIER  ePoH.I  .NiRouHaK  •  ) 

554  ON  END  PP.iHil  GOTO  Pr-inlrnij3 
55b  Por  1 1 2"Rntidal  (  1  . 1  Z  1 

S5G  Peril  3^RautIat<  1  .13) 

557  Pori  M'Raudal  (  I  .  14  ) 

559  Yauclmrci-^RabtlatT  1 . 16) 

559  TenpcIinrd'Raudal  (  1  . 17 ) 

5G0  Pa-RaudatT I , 19) 

SCI  PRINT  USING  "40, ZX.UD.  3Df  ,7X , MO.  3DE  . ZX.HD.  30F . ZX .MD.  3Uf  . ZX , MD.  3Df  , 7X .  31).  ZD" 
SSZ  NEXT  N 

553  Prlntra  '’  PRINT  " ...i i..  ..i ........ . 

564  OTF  END  SPothl  ITERMINOTES  ON  END  STATEMENT 

565  END  IF 

5GG  PRINTER  IS  Screr.  IRETURNS  PRINT  STOIEMENTS  TO  MONItGR. 

567  PRINT  . . . . . . I . 

568  PRINT 


569  PrIntopllonZ!  PRINT  "OLIGN  POPER  IN  PRINTER." 

5)0  T'RINT  "" 

571  PRINT  "TO  PRINTOUT  R  TODULflTION  OF  THE  PROBE  DOTO  SCOLED  IN" 

57Z  PRINT  "" 

573  PRINT  "ENGINEERING  UNITS,  PRESS  ""SCnLETT  0018"" 

574  PRINT  "" 

575  PRINT  "PRESS  ""GO  ON""10  CONTINUE  UlIH  THE  PROGimM." 

576  PRINT  "" 

577  PRINT  " . . . .  t ...........  ...1. 1 1 ........ t ' 

578  ON  KEY  I  lOBEL  "  SCOLED  OOIR"  GOlO  PrntBCal edl jbl e 

579  ON  KEY  4  LODFl  "GO  ON"  GOTO  Pr1n1opT)on3 

580  SplnBi  GOTO  5pln8 


581  Prntscaledlable:  MASS  STORAGE  IS  "/CLASSICK/REDOAI A" 

58Z  ASSIGN  ePathZ  TO  ScHlle» 

583  PRINT  "•■ 

584  PRINT  "PTIESS  ""ONE  PTiOUE""  IF  ONE  PROUt  UOS  USED." 

585  PRINT  "PRESS  ""TUO  PROPES  ""  IF  TWO  PROBES  WERE  USED." 

586  PRINT 

587  PRINT  ”..... . . 

588  ON  KEY  I  LABEL  "ONE  PIIUOE"  GOTO  Nuaherprobra I 

589  ON  KEY  4  LAREL  "TUO  PROBES"  GOTO  NunberprobesZ 

590  Spjn3:  GOTO  Spln9 

591  Nunberpr  obef.  I :  NooTprUa”! 

59Z  GOTO  Hounanyprobea 

593  Nurtbarpr  obneZ  :  NooTprba~7 

594  Mounanyprobra :  IF  Noofprhe'Z  THEN 

59b  PRINItr  IS  Prnler 
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59B  PRINT  . . . tit.  . . .  tt..." 

597  PRINT  "PROBE  SCRLEO  OTTfl  PILE  ".Sclflle* 

598  PRINI  . . 

599  PRINT  "SCRN  L  PRB  I  2  3  < 

6W  PRINT  POSIT" 

501  FOR  N'l  TO  100 

B07  ENTER  Pl’atli?  .  Ni  Seal  ed(  •  ) 

503  ON  END  eralli?  GOTO  Tuopriniscll 

504  Posltl-Scaledl 1 .20) 

505  Portl-ScaIed( 1 . 1 ) 

505  Port2-ScaIed( I .2 ) 

507  PorT3>ScBled(  I .3) 

500  PorI4'ScaIed( 1 .4) 

509  PorT5"Sraled(  I  .5) 

5)0  PRINI  USING  "40,3X.40.2U.3X.H0.3DF  .3X.Mri.3UE  .3X.MD.3DI  .3X.MD.  3DF.3X.HD.  3I)E" 
51)  NEXT  N 

5)2  Tuopr  Inlacl  I :  PRINI  . . . . . . 

5)3  PRINT  "SCRN  5  7  B  9  )0 

514  FOR  N')  TO  100 

5)5  ENTER  PPathZ.NiScaled) • ) 

GIG  OH  END  PPaU,2  GOTO  Tuopr  lnlac)2 
517  PorlG’ScalciK  I  .6) 

618  Port7-ScaI ed( 1 .7 1 

519  PortB-ScaIed( I .0) 

520  Por)9’Scaled(  1,9) 

G21  PorII0'Scaled< 1 . 10) 

522  Porll  l-ScaleiK  1  . 1 1  ) 

523  PRINI  USING  "40. 3X , MU.  3PE  .  3X .HO.  3tiE  . 3X.Mti.  3liT  . 3X ,MD.  30E  . ZX ,HD.  3tiE  , 2X ,MU.  3DF 

521  NEXT  N 

525  luopr  Irrlscl  2  :  PRINT  . 

525  PRINT  "SCRN  U  PRB  12  13  14  15 

527  PRINI  "  POSIT" 

529  FOR  N'l  10  100 

529  ENIER  Prall.Z.NiScaledI  •  ) 

530  ON  END  SPalhZ  GOTO  Tuoprlntscl3 

G’l  Pool lu-Scalrdl I ,2  I ) 

632  Poi  « IZ'ScaieiX  I  .  12  ) 

533  PorU3'S<.aIrd(  I  .13) 

534  Port  14  Scaledl  I  .  14  ) 

535  PortI5'Sca)«d( I .15) 

535  PorllG-ScaloriT I .15) 

537  PRINT  USING  "4U.  3X  . 40.  ZD.  3X .MU.  3llt  .  3X,HD.  3liE  .  3X  .MD.  3Dt  .  3X,MD.  3ir  .  3X  .MO.  3nF  " 

538  NEXT  N 

539  Tuopr inlscl 3:  PRINT  . . . . . 

510  PRINT  "SCRN  17  18  19  “ 

541  FOR  N'l  TO  100 

BIZ  ENTER  PPolhZ.NiScaledO  ) 

543  ON  END  PPalliZ  GOIO  TuoprlntBcI4 
514  PortlT'SciIedl  I  ,  17) 

545  Porl)8'St;oIetl(  1  ,  19) 

BIG  Port)9-5c.jl8d(  1  .19) 

547  PRINT  USING  "40. 3X  ,M0.  30f  .4X  .MO.  3I)E  .4X  .MO.  3l)t"  i  N  .For  1 1 7  .Port  1 8  .Port  1 9 


518 

NEXT  N 

619 

G50 

rniNT  "senN  vnu  l 

vnu  u 

TEDP 

RTMOS" 

551 

PRINT  ••  DFG 

DEG 

(R) 

PRESSURE" 

552 

FOR  N-l  TO  100 

553  ENTER  PPatliZ.NiScaledO) 

551  ON  END  PP.alhZ  GOTO  luoprlnlsclB 
555  Va») -Sea) rd( 1.22) 

555  Yjuu-ScaIrrK  I  .23) 

557  lenp'ScaledT 1 .24 ) 

558  Pti-Scaled(  1 .25) 
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B53  PRINT  USING  "40. 3X  .MU.  31'' .4X.HO.  SOT  .-IX.HD.  30E  .4X ,  3D.  20"  |M.  Ynul  .Yam.  .Tenp.Pa 
G60  NEXT  N 

GGI  TuoprlnT-r)b:  OEE  END  fPalli? 

B62  ELSE 

EB3  I  ENTI  JF 

GG4  PRINTER  IS  Prnter 

GBb  PRINT  . . . . 

GCG  PRINT  "PROBE  SCRLEO  ORTR  FILE  ".ScUlle* 

G67  PRINT  . ■••til.. ••till,!" 

GG8  PRINT  "SCRN  PROBE  1234 

BBS  PRINT  ■■  POSIT" 

G7®  FOR  N-I  TO 

G7I  ENTER  Prolli7.Ni  Seal  erj(  .) 

G72  ON  END  BratTi?  GOTO  Prlnlsctl 
G73  Poa 1 l»Scol edT T . I G ) 

B71  Por  T  I -Sral  cJT  I  .  T  ) 

G75  ForL2-Scol ed( I .2 ) 

G7G  Port 3^Scal ed(  I . 3 ) 

G  77  FtirL4-ScoT  r.rj<  1  . 4  1 

G70  PortS-SoaleHT  I ,G) 

G79  PRINT  USING  "40. 3X  . 40.  70.  3X .110.  30t .  3X . MD.  3DF  ,  3X . MD.  30T  . 3X .MD.  3DE  .  3X  .MD.  3IJf 

Bfl®  NEXT  N 

t5BI  Prlntacll:  PRINT 

G82  PRINT  "SCON  G  7  8  9  18  11 

G03  FOR  N- I  TO  188 

G84  enter  PPaHi?.N|ScilecI(  •  ) 

GflS  ON  ENO  PFaTI.7  GOTO  Prlnt4cl2 
GOG  PortG-ScaleiK  I  .61 
GOV  Por t7-ScaI rdl I . 7 ) 

GRB  Por  tS'Sr.iI 'd  1,8) 

CG9  Pop  1 9' Seal en(  I . 9 ) 

G90  Port  lO’Sc.iledT  I  .  18) 

69 1  Peril  IrScr.IedT  I  .1  1  1 

697  PRINT  USING  "40. 2X . MO.  308  .7X .MO.  30f  . 7X.I10.  .3IiF  . 2X .MO.  30E  . 7X . MD.  3CiL  . 7X .Mil.  3L)f 
G93  NEXT  H 

G94  Prlritsr)7:  PRINT  . 

G9S  PRINT  "SCRN  12  13  14 

GgP^  PRINT  " 

697  FOR  N-I  TO  188 

698  ENTER  PPatM2 .NiScoledl • ) 

G99  ON  END  eP.il)i2  GOTO  Printed  3 
7W  Portl2-5colKd(  1  .12) 

781  Port  l3>Scali’dT  I  .  13) 

702  Port  I4-Scfil  rdT  I  .  14  ) 

703  V..u-Scalcd<  1  . 16) 

704  Tanp- Seal  rc'M  .  17) 

705  Po’Seal  od(  I  .  1  8 ) 

706  PRINT  USING  "40.7X.Mn.  30{  .7X.MU.  314  .7X.Mt>.  3t»  .TX.MO.  .3Df  .7X,HD.  3DF  .7X.  30.  70" 

707  NEXT  N 

708  PrlntacU:  PRINT  "•<••••••<•••••••••••••••••••■.••••••••.•>•••••••.....  i  •• . 


709 

710 

711 

OEF  END  §P.itti2 

ENO  IF 

PRINTER  IS  5.:ran 

713 

714 

f'RiNr 

Prln\of'llon3:  PFIINT 

"PRE  SS 

••••BLnoF  nmn""  for  pi  rot  ortr  print  options. 

716 

PRINT 

716 

PRINT 

"PRESS 

■•"GO  ON""  TO  CONTINUF  PROGRIlM." 

717 

PRINT 

•f  .. 

718  PRINT 

719  ON  KEY  I  LRUFL  "RLROE  ORTR"  GOTO  PrInloptlon4 

720  ON  KEY  4  LROIl  "GO  ON"  GOTO  Loartocllo.il 

721  Splnl0t  6010  Splnl0 


VnU  TEMP  OT 

OEG  (H)  PR 
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m  Hrlntoptlpn't:  P«!N:  "" 

723  PRINT  "ftLIGN  PftPER  IN  PRINTER." 

72-1  PRINT 

725  PRINT  "TO  PRINT  OUT  A  TROOLfiTIOH  OF  THE  ROU  BlRIiF  ORTR" 

726  PRINT 

727  PRINT  "PRESS  ""BLfltiF  DOTR"".  PRESS  ""GO  ON""  TO  CONTINUE. 

72B  PRINT  "" 

729  PRINT 

730  ON  KEY  1  LOIIEL  "BLnOE  ORTR'  GOTO  Prnlbla.Jrdala 

731  OH  KEY  4  LROTl  "GO  ON"  GOTO  FrInTopUotiS 

732  SplnlT;  GOTO  Splnll 

733  PriitLIrdttliilfc:  NflSS  STOROCF  IS  "/CinSSTCK/DftTR" 

734  ASSIGN  PPalh3  TO  R.iubtadf  Ilet 

73E.  PRINTER  IS  Pruler 

736  PRINT  . . . . . 

737  PRINT  "RLAOC  RAU  DATA  FILE  "  .R-».ib!aiJf !  1  e$ 

73b  PRINI  . . . 

739  PRINT  "" 

740  PRINT  "FRODE  DATA  ASSOCIATEn  HI  Til  THE  01  ADI  DATA  IS  CONTAlNEri" 

74t  PRINT  "IN  TILE:  ".R.auflle* 

742  PRINT  "SCAN:". Scot! 

713  T'RTUT  "SCAMIVALVE  VOLTAGE" 

744  PRINT  "PORT  READING" 

745  FOR  N-l  TO  40 


746  FNTEK  Pr  atl.3|Scni.vo(  I  .NI 

747  PRINT  USING  "IJD. 20X .HD. 3DE" i N,Sc.inva(  I  .N ) 

748  NEXT  N 

719  PRINTER  IS  Scren 

750  Frlftloi'llotiC:  PRINT  "•  n  •  m  e  1 1 .  e  t » .  t .  •  1 1  n  ■  • 


751  rt”-ir  ■■■• 

752  T'RfUI  "ALIGN  PAPER  IN  PRINTER." 

753  PRINT  "" 

754  PRINT  "TO  PRINT  OUT  A  TOPHI  ATION  OF  THt  PLADF  DATA  SCAIFU  TO  " 

755  PRINT  "" 

756  PRINI  "ENGINEHIINC  UNITS,  PRESS  ""SCOIFP  DATA""." 

757  PRINT  "" 

750  PPxlNI  "PHFSS  ""60  ON""  TO  TERHINATE  PROCPAN." 

759  PRINI 

760  ON  KEY  I  LAPFl  "SCAI  ED  PAIA"  GOlO  Pr  tit  scl  dOI  Bridal 

7GI  ON  KEY  4  LOREL  "GO  OH"  GOTO  Lo-adopllonl 

762  Sp)nl2:  GOTO  Sptnl7 

7S3  Pi  nlaclilbl.aiMal:  ROSS  STORAGE  IS  "/CLASSICK/REDOOTO" 

704  ASSIGN  0rolli4  TP  Scl  hlBilf  1 1  et 

7G5  PRINTER  IS  Prnlrr 

756  PRINT  "  I  m  .  .  t » 1 1 1 1 1 .  1 1 1  f  t  •  t ,  .  .  n  . •  I  n  .  t .  1 ,  I  .  1 1  ■  I . 1 1 1  •  1 1  " 

767  PRINT  "RLAOE  SCALEP  DATA  FILE  "  . ScTbl  njf  1 1  e* 

7GP  PRINT  "  •  I  f  I  •  •  I  •  •  1  •  1 1 1 1  •  •  •  1 1  •  I  •  •  t  ■  I  <  •  •  1 1  •  •  •  I  •  t  ( I . . 1 1 1  •  •  I  •  1 1  ■' 

759  PRINI  "" 

770  PRINT  "PROIIF  DRTR  nSSOCIATEO  Ul  IH  THE  Bl  ADF  [>ATA  IS  COHmitlEU" 

771  PRINT  "IN  FILE:  ".SclflTe* 

772  PRINT  "SCAN:" .Scan 

773  PRINT  "SCANT VALVE  PRESS  (INCHES  H2o)" 

774  PRINI  "PORI" 

775  FOR  Ml  TO  40 

77B  ENILR  fPatlil  iPr  nldalat  I  .N) 

777  PRINT  USING  "DD. 20X ,ND. 3UE" iN.Pi  nldalal  I . N ) 

770  NEXI  N 

7  79  Lii.iilopl  1  onl :  PRINIER  IS  Scr.an 

780  PRINT  . . . 

781  PRINT  "" 

782  PRINT  "TO  LOAD  PROGRAIl  TO  RtPUtT  THE  AIOUIRIP  DATA" 

783  PRINT 

784  PRINT  "PRESS  ""CRir"”.  PRESS  ""GO  ON""  TO  TERMINATE  THE  FROGI.W 
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785  pniNr 

785  PRINI  . tit. It, 

787  ON  KEY  I  LnUEL  "CnLC"  G0(0  l.>a.jMpl 

788  OH  KEY  <  LOPtl  "GO  ON"  GOlO  Hn 

7U3  Spinl3:  GOTO  SptiiI3 

790  Lotidur'l:  Ii055  STOHOCE  IS  "/Cl  OSSICK/CNOG'J" 

791  LOnO  "CnLC". 10 

797  Hn:  PRlNr  t  .........  . 

793  PHIMI  . . . 

793  PHINI  '■■■ 

795  PniHI  "  EMU  OF  PROGKOH" 

73G  I'RIMI  "" 

797  PRINI 

798  pniNI  . . . . 

799  ENU 


TABLE  B14 


SUBACQUIRE  PROGRAM  LISTING 


mm  iniNs  Ti«  suf»()wnmir-  for  PO5in0HiNfi  fhe  scohivolvf 
trORTS  RMD  REROIMG  IHF  D'/M. 

sun  ScnvpoilpoE  H(  Scriv  .D|i ,  Sctilmsvc  .  S^n^trl!  VC  >  ITHF  SIHUCTURF  Of  THIS 

!  Stflll'HOGHOH  IS  SIMILOR  TO  PREVIOUS 
incOUISITlOH  PROGROHS  ORITTEN  Of  THE 
!IPL.  SEE  GEOPEnRTH  THESIS. 

OT  TION  POSE  I 
COR  /Pnsflvrbls/  Svc.Scn 
Posll;OUII'UT  Svc  USING  "l!.K"iScnv 
Z-SPOLKSvc) 

IRBIHOHniZ.IS) 

V'SHU  K  Z.-t) 

T'BINr,t,'U(V.7) 

P-I0'TU)  IP  IS  THE  mcSFNT  PORI  THfll  THE 


IP  IS  TIIF  FRESFNT  PORI  THOI  THE 
ISCfiHIVOLVE  IS  ON. 


CEEOR  Svc 

IE  P'Dp  THEN  Relrn 

IE  P>tJ|.  IREN 

OUII  UI  Sen  USING  "ZZ"  ) Scnltn-..vc 
CI.EOn  Sen 


IHOHE  IHE  SCOMIVOLVE 

lOLLOll  H  SECONDS  EDI!  THE  HORE  TO 
•COilPI  FIE. 


GOlO  Posit 
ELSE 

OlllPur  Sen  USING  " Z7" i Scnstpsvc  'SUP  IHE  SCP.NIVniVE 


CLEOR  Sen 

vnir  .1  lunii  1/10  sec  between  steps 

GOTO  Posit 
END  ir 

Re  Tin;  '.'.'TWO 

SUB  RccidUvnl  Lifi ,  Clioiil  nc  I  pii) 

OPTION  nnsE  I 

COM  /Pof  I  Ivf  Ell  5/  Svc.Scn 

CON  /RcnHvrUI  s/  Scon ,  Ovn.  Scnnvbl  I  ,i10  ) .  Tccipclini  rl.  Yf»^►^ltnl  d,  Scnyoucl  iri ,  Sent  o 

COM  /Rc.iiJvi  bis/  Youchni'ill  , Scny.suclmn , Scnynuclml  .MsxiJlf 

OUIPUI  Sen  USING  "  Z7 "  iCbonl  notpn  ICMPiNLOSIGN  TOKES  ON  THE  VOl  WE 

inSSIGNED  TO  IT  BY  IHE  Cm  LIMP. 


OUIPUI  OvniFlr7nJ,i0li0I3 

S.inple:  DIM  0(5) 

MOr  0-  ((5) 

FOR  I- I  TO  5 

THIGGER  Ovn 

ENIER  UvniOI  I  I 
Ovp’SUMIO)/! 

Dcv-'0(  I  )  -  flvq 
IF  DcvZMa/nJif  lilt  N 


ISiniEMENl  IN  THE  MOIN  PROnROM. 

isinnuoRD  se;tiimg  eor  the  nvM. 

ISEIS  IRE  FUNCIIONS  ON  IHE  PONIl 


HOKE  S  RLOIilNGS  OHD  STORI  IN  lilt 
|••n  ORROY 


inVEROGE  IIII  b  REODINGS 


lERROR  IROR  FOR  SIURIOUS  DVR  RtOUINGS 


PRINI  "SOin’LE  EXCEEDED  IIOXIIIUN  OEVIOIION  OI.LODED  SnilTI  E  REIOKEN  ' 
GOlO  Srnple 
END  IF 

won  .3 

NEXT  I 

IF  Nooffirbr-'  I  IREN  F(crcfrinr 
IF  Ch, nil  .IS  lgn-»Scnr»j3vcb  THEN 
Scmivbl  t  .DpI'SUhl  FD/b 
ELSE 

IE  Cl icnl  ns ipii'  Scnyruclinl  THF  N 
Yinjclim  dl-SUIKOI/S 
El  GE 

If  Cfinnl ns  inn- Scnyofclifiu  IREN 
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TABLE  B14  (CONTINUED) 


y.iuulinriJii'SUM(fl)/S 
78V  El  51 

700  GOTO  ^e^p^o.^d 

78a  FMD  !F 

780  tMO  IF 

791  ENCJ  IF 

792  n:?«rIor»c  :  IF  Cl  v»nl  1  gn  vc  THF  N 

79.1  Sr»!ivl.(  I  .LH'>-SUH(0)/G 

79-1  ELSF 

7aG  IF  Clifr»nl  a^  I  fi»i*  Sciiyeucl*n  IMIN 

VaG  Y.UM:ltnr  d'SUMt  ft)/5 

797  FLSfc 

798  Tunprc-iH:  T i»rtp«:l nu  d* SUIK  A J /S 

799  FNIJ  IF 

800  EMO  IF 

001  IF  Chaiil  1  fin*  Serif  d&vcH  THEN  Scnr,vei(  I  .Dp  )*  StfTH  A  ) /D 

802  Hnli-n:  Cl  FOR  Sen 
003  SUDFNLi 
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TABLE  B15 

LOSSCALC  PROGRAM  LISTING 


10  I  THIS  SUOPROGRnM  IS  RN  RDRPTRTION  OF  SHREEVE'S  INIECRRTION  ROUTINE 

20  IRIVEN  IN  nPPENOIX  B  OF  NPS-57SF7307IR 

272  SUB  Oat  Inti  Loupolnt  ,H. point  ,□(•  >  Posltl  •  )  ,Dat  Int ) 

277  OPTION  BRSE  I 
287  OIM  ni 100) 

297  DIN  Bl  100) 

307  DIN  Cl  I0O) 

317  DIM  Dlntl 100) 

321  MflT  n-  10) 

322  MRT  B-  10) 

323  nni  C-  10) 

324  MOT  Dint-  10) 

325  N')llpolnt-  ) 

32B  Nn)-N-) 

327  FOP  1-Loupolnt*)  TO  N 

3  37  ni  I  ?-l  )/IPo«ltl  It)  ) -Fob  Itl  I -))))•!  1101  It)  , -01  I  ) ) /I  Po»  1 1 1  1 1 )  ) -Pos  1 1 1  I  ) ) )  -  I  I 

347  Bl  I  )-l  IDI  I  )-OI  I  -  )  )  )/IPoali<  1  )-Po»ltl  I  -  I  ) ) )- 1 1  Posit  I  I  ItPosltl  I  -  I  )  )»ni  I ) ) 

35V  Cl  I  )-DI  I  )-lfll  I  )»Pc8ltl  I  )-2)-IBI  1  )»Posltl  1  ) ) 

3G0  NEXT  I 
35)  Oatlnt'O 

352  FOR  I-Lonpolntt )  TO  Nn) 

353  Dlntl  I  )-l  fli  I  )tn<  1 1 )  )  )»IPosHI  It  1  )*3-PoBltl  I)*  3  )/6tl  Bl  I  >tBI  1 1 )  ))t|Po8ltl  It) 
35'"  Dot  Int-Dat  Inl  toint  I  I  ) 

357  NEXT  I 

377  Dlntl  I  )-ni  2)t|PoBltl2)*3-Po8lt  :  I ) " 3)/3tBI  2  ) •! Pos  1  tl  2  ) ‘2 -Pos  1 1 1  I  >*2)/2tCI2  ) 
387  DlntlN)-niN)*IPoBltlNt  I  )-3-PosltlN)'3)/3tBIN)t|PoBltlNt|  )‘2-PosltlN)‘2  )/2t 
397  Dntlnl-DatlnttOlntl I )tDlnt(N) 

407  SUBENO 


10  ITHIS  SUOPROGRRH  IS  RN  flORPTRMON  OF  SHREEVE’S  INTEGRRTION  ROUTINE 
20  IGIVEN  IN  RPPENDIX  B  OF  NP5-57SF7307IR  TO  BE  USED  FOR  HIX  LOSS 

2  72  5U0  Oat  ml  1 1  Loupoint  .Hipoint  ,01  •  )  .Posi  tl  •  >  .Dot  int  I ) 

277  OPTION  BmSE  I 

287  OIM  fil  100) 

297  DIM  Bl  100) 

307  OIM  Cl  100) 

317  OIM  OintI  100) 

321  MnT  R-  10) 

32  2  MRT  B-  10) 

32  3  MmT  C-  (0) 

324  MnT  Dint-  10) 

325  N'Hipo: nt- I 

326  Nn)-N-I 

J27  FOR  I “Loupo ini t )  TO  N 

3  37  Rl  I  )-l  I  /  I  I  Fob  'tl  1*1  )-Fosit<I-l  )»/3))»ll<0(  It)  )-OII  )2I  I  Pos  itlI<l)-F-oBitlI) 

347  Bl  I  )-l  I  01  I  )-OI  I  -  I  ))/l  IPoBJtl  I  )-FoBitl  I  -  I  ) )/  3)  )-l  I  Fob  it  I  I  u  3tFosi  tl  I  -  I  )V3)« 

357  Cl  I  )-OI  I  )  -  (  Ri  I  )•!  Pool  tl  I)/3)'2)-IBtI)*<Fosit<I)/3)) 

360  NEXT  I 

361  Oatintl-0 

362  FOR  I'Loupointt)  TO  Nn) 

363  OintI  I  )-l  Ml  I  )tRI  1 1 1  )  ).|  IFosi  tl  1 1 1  )/3)'  3-IPosi  tl  I  )2  3 )  3  t/6t|  Bl  I  )  tBI  I  *  I  )  )•!  I 

364  Oa 1 1 nt I -Oat  1 nt I tOin 1 1  I ) 

367  NEXT  I 

377  Oi  nt  <  I  )-RI  2 /•)  I  Fosi  1 1  2  )/3/ '  3-<Fosi  tl  )  )/ 3)  3 )/ 3tBI  2  )•  1 1  Pos  1 1 1  2  )/ 3 )  2-IFosit 
387  Dintl  F  '-Rl  N)«l  IPoBi  tINf  I  )/3)  3- 1  PoBi  1 1  N )/ 3 )  3)7  3tBI  N  )•  1 1  Fob  1 1 1  N'l)/3)2-IP 
397  Oat  int  I -Oat  ml  I  tDi  ntl  I  )tDint  I  N) 

407  SUBEND 
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TABLE  B16 


CPBLADEPLOT  PROGFjVM  LISTING 


I  ir-ftijbMfin  Lf'ttLMutr'LUi 

I  irROGRfiH  PLOTS  MASS  ’.VEKiiGE  j  BLmOE  COEFFICIENT  OF  PRESSURE  mGmINST 

3  nUE  FRmCTION  of  CORD  x/C  ‘‘ROM  THE  LEmDING  EDGE. 

5  MmSS  STORnOE  15  /CLmSSICK  EtjC-inM 

7  n^FUT  'ENTER  THE  NAME  OF  THF  TILE  CONiAiNING  THE  BlADE  CP’S  .Cpfilc* 

l&  ASSIGN  TO  CpIilcA 

t !  OPTION  BASE  ( 

12  Dlh  Cpn«saavg< 46 > 

15  DIM  Xoc( 2d) 

16  MAT  Cpnagnavq™  (d> 

13  ViTrT  36. 3. 54.6.9®. 8. 86. 6  F  ft .  To .  6 . 7  1 . 5 .64  .  I  .  56  7 .49 . 3 . 4  I  .  3 . 3^  .  T  ,  2  6 . 3  .  i  5 . 6 

2d  RE mT  <oc t  •  ) 

26  ENTER  §Pa c h I  i Cpfia8flavg<  * 

vt  GINIT 

E.d  P»  OTTEFf  IS  CRT  .  INTEr-'  -iL  - 
b(  ‘^'FtEFN 

62  ^  E  r  LA  .  _  j  'FF 

7d  GFoVHI’S  or 

7  3  X  qM'i .  wax •  I dd« MmX<  I  , RATIO) 

74  T_gfhi_ria*--ldd*  MiTx<  I  ,  I  /  RAT  I  0  ) 

75  LORG  6 

76  FOR  I»-  .  3  TO  .3  SIFF  .  t 

77  MOVE  X_qoii,.n^x /  2  <  I  .  I  .griu^nox 

7&  LAPEl  Cp  vS  PERCENl  CHORD 

75  NExT  I 

63  DEG 

84  l.OIR  5d 

65  MOvE  ^  ’  _ciAi t _nax  /  2 

7)6  LAGFl  «.,p 

ft?  LOIR  d 

r<6  MOvt  X  _qrit«_naK  /  2  ,  .  I  •  »_qdii_f'a>' 
e  7  C  S I  ;  F  3  ,  I 

5  1  LmEiFL  a/C  FFRlENi  CMORQ 

5  2  V I  E  UR  CRT  .  I  •  x_grtu_  nax  , .  95  •  x_qp')_  nax  ..15*  i'_Qdt)_riax  ,  .  9*  T_gbu  nnx 
54  FRnfiF 

95  UINi.'i'U  d .  I  dd .  I  . d  .  -  I  .  6 

56  AXES  6,.2.d.l.d,2.2.2 

57  CLIP  OFF 

56  CSIZE  2.5. .5 

5  9  L  ORG  6 

(dd  FOR  I«d  TO  idd  5IEP  Id 
I  d  I  MO'.'E  I  .  i  .  d2 

td2  LARlL  using  tt.K  iI 

Id3  NEXT  I 

I  d4  LOFrS  6 

tes  FOR  1--  1  .  6  TO  1  .d  STEP  .4 

I db  HOvE  -.6,1 

Id?  LAFjEL  using  '  do. do  (I 

Idft  NExT  I 

ids  FOR  N-  ■  TO  /d 

113  PLOT  Xoc(  N ; , CpnaflxavgT  Nt3 ) 

M4  NEx  I  N 

I  15  FOR  N- I  TO  2d 

I  16  FLO!  Xoc( 2  I -N) ,Cpno55nvg< 2?<N/ 
in  NFx?  N 

115  ENI) 
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TABLE  B17 


BETAPOSIT  PROGRAM  LISTING 


2 

4 

1 
le 
1 1 
12 
17 
20 
2G 
50 
50 
61 
62 
70 
7  3 

74 

75 

76 
7  7 
78 
75 
S3 
04 

65 

66 
67 
06 
65 

5  I 
97 
94 

55 

56 

57 
96 
59 
100 
101 
102 

103 

104 
(05 
106 
107 
106 
(09 
(  (3 
(  (4 
(  (7 


If-nuLmmi  oi-  in*  i 

(rROGRftH  PLOTS  BETft  VS  FfiOBt  POSITION 
MnSS  STORiTGE  IS  "/CLfiS5ICK/RE(jOi'iTfi ' 

INPUT  "ENTER  THE  NONE  OF  THE  REDUCED  DiiTO  F I LE  ’ . Cal cdot  * 
FiSSIGN  0Path(  TO  Calcdati 
OPTION  B»i5E  ( 

DIN  Calc( (00.25) 

HOT  Calc-  (0) 

5can--49 

ENTER  ePath(  iCalc(  •  ) 

GINI  T 

PLOTTER  IS  CRT.  'INTEF<NiTL" 

CLEOFi  SCREEN 
KEt  LOBELS  OFF 
GRTrTdCS  ON 

)'_Qdu_nBK- (00»MO4(  (.ROTIO) 

T_gdii_najc  (00«HOX<  (  ,  (/ROTIO) 

LOFfG  6 

FOR  I--. 3  TO  .3  STEP  . ( 

MOVE  X_Qdu_Bax/ 2 < I , T_Qdu_Bax 
LOFjEL  ”bET02  vs  PROBE  DlipLOCEHEN?" 

NExf  I 
DEG 

LOIR  90 

MOVE  0. t_gdu_nax/ 2 
LOBEL  ■BET02  <d«g)' 

LOIR  0 

MOVE  x_gdu_nax/2 . . I* i_qdu_nax 
C5IZE  3, ( 

LOBTL  ■  SPON  ( in) ' 

V  I EUrORT  .  ( •X_gdu_nax , , 55»X_qdu_nax , . 1 5»  T_gdu_nax . . 9*  r_griu_nax 
F  RfTME 

UINDOU  -5. 5. -2 .6 

0xE5  . (..2, -5, -2, 5. 5. 2 

CLIP  OFF 

C5I2F  2. 5.. 5 

LOFnS  6 

FOR  I'-S  TO  5  STEF  ( 

MOVE  I  . '  2 . 0  ( 

IriBEL  USING  "11. (("i  I 
NExT  I 
LOrnS  6 

FOR  I--2  TO  8  STEF  ( 

MOVE  -5. I . I 

LOBEL  USING  DOD.D'  il 

NEXT  I 

FOR  k-(  TO  Scan 

PLOT  CalcI  K  .  I  I.CalcTk.S  ) 

NEXT  K 
END 
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TABLE  B18 


PRESSPLOT  PROGRAM  LISTING 


2  IPROGRmM  plots  pref-pt/oref  vs  probe  position 

4  HTiSS  STOREiGE  IS  "/CLASSICK/REDDEtlB” 

7  INPUT  "ENTER  THE  NONE  OE  THE  REDUCED  DRTR  FILE" .Cal cdnt* 
l«  fiSSIGN  PP-athl  TO  Calcdat* 

11  OPTION  BnSE  I 

12  DIM  CalcI  IM.25) 

17  HmI  Calc-  (0) 

20  Scan»7B 

26  ENTER  PPathl  iCalcI  •  ) 

50  6INIT 

60  PLOTTER  IS  CRT  . " INTERNEiL" 

61  CLEfiR  SCREEN 

62  kEr  LRBELS  OFF 

70  6RRPMICS  ON 

73  k_griii  fia«“  I00«MmX(  I.ROTIO/ 

74  T_gdu_nax- l00*HfTx(  I,  l/REiTIO) 

75  LOr<P,  6 

76  FOR  I-- . 3  TO  .3  STEP  . I 

77  MOVE  k_Qdu_nax/2tI  ,>_gdii_na>t 

78  LRBEL  '  Prel -Pt2/C|rel  VS  PROBE  DI  SFLEiCEHENil  REF  ) " 

79  NEaT  I 

63  DEG 

04  LOIR  50 

85  MOVE  0, r_gdu_nex/ 2 

66  LR'^EL  ■  Pref -Pt2/  Q<'eT '* 

87  Lr'  <  0 

68  MOVE  A_adu_nax  <■  2  , .  I  •  i_Qdu_nB» 

69  CSIZE  3,1 

51  LROEL  BLRDE-TO-BLmDEI in)’ 

52  VIEUPORT  . I •X_griu_Max , ,99xX_Qdu_Max , . I5» 1  gdu  nBX,.5»T_gdu  nnx 

54  ERmME 

55  UINDOU  -3. 3.0, .7 

56  RxES  . I , , 0 1 , - 3 ,0 . 5 , 10, 2 

97  CLIP  orr 

56  CSIZE  2.5, .5 

99  L0r<G  6 

100  FOR  I--3  TO  3  STEP  I 

101  MOVE  I. -.01 

102  Li'iGEL  USING  ll.k  'il 

103  NEXT  I 

104  L0r<G  6 

105  FOR  1*1.0  TO  0  5IEP  -.1 

106  MOVE  -3.1,1 

107  LnBEL  USING  OD.  DO  il 

106  NEXT  I 

109  FOR  K»l  TO  Scan 

113  PLOT  Calci  K  .  I  )  .Calclk  ,  16; 

I  14  NFxT  k 

117  END 
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TABLE  B19 


VVREFPLOT  PROGRAM  LISTING 


t  frttiKirtnil  vvncriLui 

2  IFROGRiiH  FL0T5  V/vKF  VS  FiiOBt  FOSITION 

4  Hm55  STORmGE  15  'VCLM55ICK/REDDiiTft 

5  INFUT  ENTER  THE  NRHE  OF  THE  REDUCED  DnTft  FILE  .Calcdai* 

6  rTSbIGN  &"alh2  TO  Calcdat* 

9  OF  1 1  ON  BOSE  I 

10  DIH  Calc<  100.25) 

I )  MhT  Calc*  <  0 ) 

1 2  5rBn»T8 

14  ENTER  0ra»h2iCalc<  •  ) 

50  GINIT 

B0  FLOTTER  IS  CRT . "INTERNmL" 

Gl  CLErTR  SCREEN 

G2  KEt  LhBELS  OFF 

70  GRmFHICS  on 

73  X_qdci_nax-I00'HM)«  I. RATIO) 

74  T_gdu_naK-  I00»I1AX(  I  .  l/R)TTIO) 

75  L  ORG  6 

76  FOR  I*-. 3  TO  .3  STEF  . I 

77  HOVE  X_gdu_naK/2<I , T_gdu_nax 

76  LABEL  "v2)Vref  VS  PROBE  DISPLfTCEMENTT  REF  >" 

75  NEXT  I 

63  DEG 

64  LOIR  30 

65  HOVE  0,  t_gdii_fiBx/2 

66  LT'^t'  Vl/Vref  ' 

67  LOIa  0 

66  HOVE  X_qdu_nax/2 , . (• r_odu_n8x 

69  C5I2E  3. I 

9t  LABEL  BLADE -TO-BLADE< INI- 

51  VIEUFORI  .  I  *X_gdu_nBX  , .  99*X_gdu_xi8x  , .  1 5*  T_gdu_aBx  , ,  9*  T_gdu_nnx 

54  FRAME 

55  UINDOU  -3. 3. .5. 1.0 

56  Axes  . I , .01 .-3. .50.5, 10.2 

97  CLIP  OFT 

SB  C5I2E  2. 5. .5 

99  LOFtG  6 

100  FOR  I--3  TO  3  STEF  I 

101  HOVE  I.. 49 

102  LABEL  USING  "B.K  'il 

103  NEXT  I 

104  LOFtG  8 

105  FOR  1-1.0  TO  .5  STEP  I 

106  MOVE  -3. I .1 

107  LABEL  USING  •DO.DO'iI 

106  NEXT  I 

109  FOR  X-l  TO  Scan 

113  PLOT  CalcIK  ,  I  )  .Calc(K.7)/CaIc(K  .  14) 

I  14  NEXT  K 

117  END 
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APPENDIX  C 


REYNOLDS  NUMBER  CALCULATION 

Reynolds  iiumber  calculation  was  added  to  the  "CALC" 
program.  This  capability  was  added  primarily  to  find  the 
Reynolds  number  for  the  (averaged)  inlet  flow,  however  it  will 
also  calculate  the  value  for  the  (averaged)  downstream  flow. 
The  value  in  general  should  be  calculated  over  the  same  three 
inch  interval  used  for  loss  calculations  and  will  have  the 
same  lower-  and  upper-integration  scan  numbers  as  the  loss 
inputs  in  most  cases.  However,  the  ability  to  use  a  different 
interval  is  provided  by  having  the  ability  to  enter  the 
desired  limits  for  the  selected  scans  of  a  three  inch 
interval . 

Lines  2514  to  2530  of  Table  B1  contain  the  Reynolds  number 
calculation  process  in  program  "CALC."  Line  2577  of  Table  B1 
produces  the  output  in  the  reduced  file  printouts.  The 
following  is  the  analytical  development  for  the  Reynolds 
number  calculation. 

The  Reynolds  number  (based  on  chord)  is  defined  as 

iee  -  (1) 


Properties  vary  at  the  inlet  so  integration  is  required  over 
one  blade  space;  thus 
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Re  =  -PZds(-^) 

J  °  |a  s 


5  pV 

0  prefVref 


^  \iief 


(2) 


which  reduces  to 


Re 


prefVref  ^  kl  ^  ]  dc 

\iref  J  0  cosBl  u 


cospi 


jire^  ■ 


(3) 


The  ensemble  average  of  survey  span  Reynolds  number  is  then 
defined  as 


Re 


c 


O  ( 


Vref  r  « 
(irefJ  0 


COSpj^ 


)  ( 


M££^)ds 


(4) 


with  subscript  p  denoting  the  plenum  (reference)  condition. 
Introducing  Sutherland's  Law  for  the  viscosity 


^  0 . 063329r  ^  (5) 

^0  198.72  +  r 


and  using  the  calculated  value  X  from  measurements  to  find  T 


T  =  Tp(l-X^) 


(6) 


then 


The  integral  in  Eqn.  (4)  is  then 


> 


m 


I  = 


)  Uds 


(8) 


which  gives 


Re  =  i2o(-^)  hlLi 
Rf^'  ^ref 


(9) 


where 


(Iref  =  0  •  063329 

198 .72  +  fref 


(10) 


and 


fief  =  f^il-Xref-)  (11) 

Eqn.  (9)  was  used  in  the  calculation  of  the  Reynolds 
number  in  program  "CALC"  with  the  intermediate  steps  of 
determining  jlref,  Tref  and  the  integral  I  using  Eqn.  (10), 
Eqn.  (11)  and  Eqn.  (8)  respectively. 
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APPENDIX  D 


CALCULATION  OF  COMPRESSIBLE  MIXED-OUT  CONDITIONS 


Dl.  FULLY -MIXED-OUT  SOLUTIONS 

Figure  Dl  Illustrates  the  concept  of  f ully-mixed-out 
conditions  for  a  stationary  cascade.  For  loss  calculations, 
th«=>  mixed-out  conditions  must  first  be  calculated  from 
measurements  made  at  both  station  1  and  station  2.  However, 
the  procedure  will  only  be  shown  here  for  station  2  to 
hypothetically  mixed-out  conditions  at  station  3.  The 
procedure  from  station  1  to  fully  mixed-out  is  the  same.  The 
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present  procedure  [Ref.  12]  was  found  to  be  consistent  with 
the  method  of  S.  everding  and  Starken  [Ref.  13]. 

Measurements  were  made  at  station  2  where  the  flow  was 
non-uniform.  Uniform  ( fully-mixed-out)  conditions  at  station 
3  were  calculated  from  those  at  station  2  using  conservation 
of  mass,  momentum  and  energy  for  the  control  volume  labeled 
ABCD. 

Assumptions  are  made  that  the  flow  is  steady,  that  the 
gas  is  a  perfect  gas  with  constant  specific  heats  and  that  the 
stagnation  temperature  is  uniform  throughout  the  flow. 

Conservation  of  energy  is  satisfied  by  the  assumption  of 
constant  stagnation  temperature,  thus 

=  T,,  =  T,  (1) 

Conservation  of  mass  yields 

P3V3COSP3  =  J^PjVjCOSP^ 

0 

Conservation  of  momentum  yields 

0  =  f  Vdii)2  -  f  Vdm^  +  f  dF^  +  f  ( 3 ) 

Jab  Jdc  Jab  Jdc 


where  dF  is  the  component  of  force  on  an  elemental  area  of  the 
control  volume's  surface.  No  contribution  to  the  conservation 
equation  results  from  the  periodic  conditions  along  BC  and  AD. 
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If  the  integral  of  the  shear  stresses  over  AB  is 
neglected,  the  component  of  Eqn.  (3)  in  the  x-direction 


becomes 


P3V"32cosP3sinp3  =  p  P2T/22cosP2sinp2d(^) 

JO  s 


(4) 


with  no  assumptions,  the  component  of  Eqn.  (3)  in  the  z- 
direction  becomes 

^3  +  P3^3^COs2p3  =  (p^Vj^cOS^p^  +  P^)  d(^)  (5) 

•'  0  ^ 


Equations  (2)  ,  (4)  and  (5)  give  conditions  at  station  3  in 
terms  of  those  measured  at  2.  Using  the  equation  of  state  and 
constant  stagnation  temperature,  the  four  unknowns  (P3,  p3,  V3, 
B3)  can  be  reduced  to  three.  Introducing  the  limiting  velocity 

y,  =  y/2^  (6) 


which,  here,  is  a  constant,  and  defining  a  dimensionless 
velocity  as 


X  = 


(7) 


the  steady  flow  energy  equations  and  isentropic  relationships 
give 
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(8a) 


=  1-X^ 


—  =(1-X^) 


(8b) 


Pc 


(8c) 


Multiplying  the  left  hand  side  (LHS)  of  Eqn.  (4)  by 


and  the  right  hand  side  (RHS)  by 


1  P4. 


Pt2^C~  V 

t3^t 


and  using  the  equation  of  state  with  as  constant, 


— ^  r  1  — ^  V 

P,jX2^(l~X^^)  ^-^cosP3sinP3=j^  P^^x.^d-x^^)  cos^^sin^^^di  —  )  {9) 


Similarly,  from  Eqn.  (5),  noting  that  2Cp/R  =  (2y/y-1) 


P^^[{l-Xj^)  '1-^  +  {^^)Xj^{l-X.^)  T-icos^Pj] 
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2y 

Y-l 


1 

)X2Ul-X,)  r-^cos^p^]  d(^) 


(10) 


and  from  Eqn.  (2) 


P,,X,(1-X,^)  'f-^cosp,=p^  P^^X^(l-X/)  Y-icosp^dC^)  (11) 


Equations  (9),  (10)  and  (11)  are  three  equations  for  unknowns 

P,3  Xi  and  B3 . 

Identifying  the  three  RHS  integrals  as 

1 

Pt2^2(l-X22)^cosp2C?(^)  (12a) 

1 

l2=r  P,.X^J1-X.J)  Y-icosp2sinp.d(  — )  (12b) 

Jo  ^ 

I^=f'  P^.[  (1-X./)'^-  *  (-^)  X/  (1-X.^)^  cos^p^]  d(^) 

J  0  y-l  s 

and  eliminating  Pj,3  by  dividing  Eqn.  (11)  into  Eqn.  (9)  and 
Eqn.  (10)  yields 

^3sinP3  =  ^=^  (13) 
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similarly,  dividing  Eqn.  (11)  into  Eqn.  (10)  obtains 


[  (l-A'j")  +  (-^)  jif  ^cos^p  ] 

_ ^ _ Y-1  _  ^ 

A^jCOSPj 


(14) 


Equation  (13)  and  Eqn.  (14)  are  simultaneous  equations 
for  Xj  and  lij  in  terms  of  A  and  B,  which  are  known  from 
measurements.  Squaring  Eqn.  (14)  and  substituting  for  cos^B2 
using  Eqn.  (13 ) , 

(15a) 

^  y~l  ^ 

which  is  also 

-  0  (15b) 

Equation  (15b)  is  a  quadratic  equation  for  Xj^,  yielding  an 
explicit  solution 

Y  2-  (16) 

^  2C 

where 

(17) 

Y-1 

D-2  (^^)  (1- (-i^)  -S2  (18) 

Y-1  Y-1 

E=  [1- (— ^  )  A^J  2-tS^A^  (19) 

Y-1 
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The  alternate  s’gns  in  Eqn(16)  correspond  to  subsonic  and 
supersonic  roots.  [Ref.  13]  When  X.  is  known  from  Eq^.  (16), 
B3  is  given  by  Eqn.  (13),  by  Eqn.  (11)  and  P,  by  Eqn.  (8b). 
These  are  the  fully-mixed-out  conditions. 

D.2  INTRODUCTION  OF  REFERENCE  CONDITIONS 

In  practice,  when  probe  surveys  are  conducted  to  obtain 
the  integrals  in  Eqn.  (12),  fluctuations  occur  in  tunnel 
supply  conditions.  The  integrals  in  Eqn.  (12)  are  to  account 
for  spatial  variations  in  properties.  If  time  variations 
occur,  the  eifect  on  the  spatial  integral  can  be  minimized  by 
referencing  the  integrand  to  tunnel  reference  conditions  at 
the  time  of  the  measurement  (Duval  [Ref.  9]). 

Ptref,  Ttref  and  Xref  are  defined  as  the  tunnel  reference 

/s 

conditions  au  the  time  of  each  individual  measurement,  and  Pj  f, 
Tjgj;  and  Xjgj-  as  the  ensemble  average  values  of  the  reference 
condition^  ever  all  points  in  the  integration  interval. 

The  conservation  of  mass  equation  is  divided  by  the 
reference  mass  flux 

prefV're.f  =  (  — -^  )  Xre.^d-lCref ")  ~  (  (20) 

y-l  Vtref 


and  the  momentum  equation  by  the  referance  momentum  flux 
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(21) 


prefVl  ef''=  ( )  Xi  ef  ‘  (3  -Xref^)  Ptref 
Y-1 


Dividing  Eqn.  (11)  by  prefVref  with  Vrref  ■  constant, 


"  J  n  -J_  S  _ 


Ptref Xief  (l-Xref^) 


Ptre/A'ref  (l-JsTref^)  y-i 


Dividing  Eqn.  (9)  and  Eqn.  (10)  by  prefv’ref 


.  r:  ’  COS p - s i np-  Pt.X^'  {1-X.^)  cosp,sinp, 

J.  -  I - ^ —  q  (  —  )  = - :: - ^ — ± 

■  J  r  -L.  S  1 


PtrefXref'^{l-Xref^) 


PtrefXref^  il-Xref^) 

(9a) 


P 


[  (1-X/)  v-:  +  (_2Y^)  v^d-A'/) 


Y'l 


,  cos^p,] 


PtrefXref'^  (l-Xref^) 


d(-il)  = 
s 


(10a) 


P,^  [  d-x^'^)  ’'-"cos"P3] 


Y-1 


PtzefXrefdl-Xref^) 


Dividing  Eqn.  (9a)  and  Eqn.  (10a)  by  Eqn.  (11a) 


At  „  I, 

■— —  sj.nP-,=  — ^ 
Aref  "  I, 


and 


137 


[  (l-^  2)  +  (^)A:32cOs2p3]  f 

_  Y-1  _ __  = 

^3^re/cosP3 


This  leads  to  the  following  equations: 


A=Xref  { ~ )  =X3sinP3 


B=Xref{-^)= 

I. 


f  [(i-;f  2)  +  (^^)A:32cos"p3] 
-^3  X  _  ^  Y-1  _ 


Ar3COSP: 


The  solution  for  X3  is  given  by  Eqn.  (16)  using 
in  Eqn.  (18)  and  Eqn.  (19).  Then,  the  mixed- 
conditions  are  given  by 

P3=sin-M-^) 


Pt3  = 


PtrefXref{l-Xref^) 

1 

X^{1~X^^)  Y-^cosPj 


(22) 

(23) 

A  A 

A  and  B 
out-flow 

(24) 

(25) 

(26) 
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APPENDIX  E 


FULLY-MIXED-OUT  FLOW  SOFTWARE  TESTING 

El.  INTRODUCTION 

After  coding  the  f ully-mixed-out  flow  calculation  within 
the  software  developed  by  Classick,  a  test  of  the  software  was 
required  using  an  initial  profile  for  which  the  mixed-out 
conditions  could  be  determined  exactly.  By  applying  the  test 
case,  it  was  possible  to  determine  that  there  were  no 
fundamental  errors  in  the  programming. 

Figure  El  shows  the  selected  test  case  for  which  the 
analytical  solution  was  programmed  on  an  HP  9830A  [Ref.  11] 
computer . 


The  test  case  was  provided  to  "LOSS"  as  a  reduced  file 
for  inlet  flow  angles  of  zero  and  20  degrees.  Zero  degrees 
was  chosen  to  ensure  that  the  flow  angle  did  not  change  as  a 
result  of  calculation  errors.  The  value  of  20  degrees  was 
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chosen  to  provide  a  reasonable  test  against  the  predictions  of 
the  analysis  program. 

E2.  "LOSS"  TEST  CASE  CALCULATIONS 

"LOSS"  was  used  for  the  test  cases  of  zero  and  20  degrees 
initial  angle.  Figure  E2  shows  the  output  at  the  zero 
initial  angle,  which  produced  no  change  in  the  mixed-out  flow 
angle,  as  was  expected.  Figure  E3  shows  the  output  for  20 
degrees  initial  angle,  which  is  shown  in  comparison  to  the 
analytical  predictions  in  Table  El. 

E3.  INDEPENDENT  PROGRAM  CALCULATIONS 

The  analysis  program  used  closed-form  expressions  for  the 
integrals  involved  in  calculating  the  values  of  X,  Pt,  Ps,  and 
yaw  for  the  mixed-out  flow  (Appendix  D) .  Figure  E4  shows  an 
output  of  the  test  case  at  20  degrees  initial  flow  angle  using 
the  values  provided  in  Figure  El  along  with  a  listing  of  the 
analysis  program. 

The  analysis  program  was  also  used  to  look  at  the  effects 
of  changing  initial  velocity,  angle,  fraction  of  the  flow  at 
high  velocity  and  ratio  of  high  to  low  velocity  on  the  mixed 
out  values  of  X,  yaw,  Pt  and  Ps.  Some  results  are  tabulated 
for  cases  with  the  flow  equally  divided  between  high  and  low 
velocity  in  Table  E2 . 


LOSS  COLCULflriON  RESULTS  FOR  STATION  TWO  ANO  MIXED  FLOW  RESULTS. 


USING  FILES 

L- 

-27FEBACALC 

U-20MARTEST0 

X^REFAL'G 

PrREFAUG 

PAUAUG 

1 .430E-0I 

3 . 000E+0 1 

4.000EF02 

INIEGA 

INTEGC 

INTEGV 

INIEGOI 1 

INTEGOI2 

INTEGDI3 

r.334E+00 

2.r3EEF00 

9.69e£-0l 

I.752E+02 

2.505E+0I 

2.505EX0 

NUMERATOR 

INTEGQ 

INIEGZ 

INTEGNII 

INIEGNi: 

1MTEGHI3 

I .5IBE+00 

I .4I3E+00 

-8.790E+0I 

g.08BE»0l 

0.000E+00 

1 .256E+0 

DENOMINATOR 

2.34SE>ey 


STATION  TWO  RESULTS 


STATIC  PRESSURE  RISE  COEFFICIENT 
-3.707E+0I 

AUDR 

S.463E~0I 

LOSS  coefficient 
I .500E+O0 


THE  FOLLOUIHS  IS  FOR  MIXED  FLOW  RESULTS 


MAUC-  ISAUG  lOAUG  AAVG  BAUG 

S.lfl6E-0l  0.0O0E+00  S.0l4e»01  0.000EF00  I.382E+0I 
EAVG 

I .0O0E ‘00 


CAUG  DAUG 

3.E00E+0I-I .7SIE40: 


XTUXILOU  YAUMIvflOW  FTRATIO 
7.47GE-02  0.000E*00  g.SS4E-0l 


PSMIXFLOU  CPTMIvfLOU 
4.0:fe+0:  g.554E-0i 

K3  X.t:3 

5.IP6E-0I  4.955E-0I 

INTEGU  IHTEC-T  lUTEGX 

4.I50E-02  l.55fiE*00  l.4e6E»00 


MIX  FLOW  RESULTS 


MIX  FLOW  STATIC  PRESSURE  RISE  COEFFICIENT 
4.3I3E-0I 

MIX  FLOW  AVOR 
G.635E-0I 

MIX  FLOW  LOSS  COEFFICIENT 
g.S70E-0l 


Figure  E2 . 


Test  Case  Loss  Printout — Zero  Yaw  Angle 
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LOSS  CALCULATION  RESULTS  FOR  STATION  TWO  AND  MIXED  FLOW  RESULTS. 


U5IN6  FILES 

XZREFAUG 
I .430E-ei 


L-27FEeACALC 

P: REF AUG  TAUAUG 
3.000E*0I  4.000Et02 


U-20MARTESI20 

l-HB 


INTEGA 

2.334E400 

NUMERATOR 
I .5I6E400 


INTESC 

2.r3GE+00 

INTEGB 


INTEGY 

9.690E-0I 

INTEG2 


INTEGDI I 
I .7S2E402 

INIEGNII 
8  S3SE+0I 


INTEGDI2 

2.S05E40I 

INTEGNI2 

2.435E+00 


INTEGDI3 

2.505E+0I 

INTE6UI3 
1 .r50E403 


I .4l3Et00  -8.7909*01 


denominator 

2.345E+00 


STATION  TWO  RESULTS 


STATIC  PRESSURE  RISE  COEFFICIENT 
-3.707E40I 

AUOP 

B.463E-0I 

LOSS  COEFFICIENT 
I .500E*00 


THE  FOLLOUING  IS  FOR  MIXED  FLOW  RESULTS 


1 1  AUG  I2AUG  I3AU6  AAUG  BAU6  CAUG  DAUG 

4.874E-0I  9.7I9E-02  4.999E40I  2.852E-02  t.4B4E*01  3 . B00E40I -2 . 024E+0r 
F^UG 

i  .  IB3E400 

xmixelow  VAUMIXFLOU  PTRATIO  O 

7.595E-e2  2.203E40I  9.554e-0l  -  K/D  »  feiV 


PSMIXFLOW  CPTMIXFLOU 
4,0ZBE402  9.554E-0t 

K3  X.<F3 

4.074E-0I  4.65BE-01 

INTEGU  INTEGT  INTEGX 

3.547E-02  I.4B:E400  I.397E400 


MIX  FLOW  RESULTS 


NIX  FLOW  STATIC  PRESSURE  RISE  COEFFICIENT 
4.287E-0I 

MIX  FLOW  AUOR 
B.235E-0I 

MIX  FLOW  LOSS  COEFFICIENT 
9.563E-0I 


Figure  E3 .  Test  Case  Loss  Printout — 20  Degree  Yaw  Angle 


TABLE  El 

COMPARISON  OF  "LOSS"  AND  ANALYSIS 


Mix  Flow  Condition 
Yaw 
X 

Total  Pressure 
Static  Pressure 


"LOSS" 

22.09° 

.07585 

410.822"  H2O 
4  02.6"  H2O 


PROGRAM 

Analysis 

22.08° 

.07584 

410.829"  H2O 
402.61"  H2O 
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10  REII - - R.P.SMREEVE - 3/4/ fO 

20  REII - FPOGFnil  10  TEST  THE  CHLCOtHTIOII  OF  FULLY  MIXED  OUT 

30  REII - FLOH  FROM  R  CRSCRDE 

40  REII  - 

50  REII - DRIfl  STRTEMEIITS  , 

60  Gl=1.4 
TO  F3=430 
go  F0=400 
?0  F2-40t 
100  Xl=0.1 

MO  F0=0.5  , 

120  G0=0.5  ' 

130  P2=20 
140  I'EG 

150  REII - CRLC.  IllIERITEOiniE  VRRIRBLES 

160  F6=F2/F0  ' 

irO  G2=Gl/<Gl-i) 

100  F9  =  <1-F0>/<1-<G0»}!1)T2) 

1?0  X9=l-<r0/P9)t<l/G2) 

200  )',?=?oR;;g  ; 

2i6  V?=<1-X3»X9>/<1-X1«X1)  ' 

220  Y1^X1/X9  I 

230  REM - CflLC  OF  11.12*13 

240  I  1=F6»Y1«Y9«COSB2»<F0  +  F3»GO»<1-X1«V1 >) 

250  12=F6«Yl»Ylf‘Y3»C0SB2»SIUB2*<l-F9*<l-C0*G0)> 

260  13-2»G2»Yl!'Y:«Y9^COSB2*COSB2»<l-F9«<l-ce»G0)) 

2r0  13.'F6»<<1-XP)/X0M3) 

230  REM - CRLC.  COEFFS.  Ill  SOLUTIOII 

230  ni=X9*l2/ll 

300  ei=X9*I?/Il  I 

310  C1  =  <<GM1)/<G1-1))T2 

320  CO'SORCl  I 

3J0  rii=2»ce»<i-2»G2*ni»ni)-Bi*E!i 
3  10  El"<l-2»G2*nMni  >12tBH'ei«Rl*ni 
350  !;4*<-PMS'?R<Pl*Dl-4«Cl«El)>/'<2»Cl> 

360  X5=<-M-Si3R<PH(Dl-4«Cl«El>>/<2*Cl> 

3r0  FEII-PRIIIT  -POSITIVE  ROOT*  ;<3="S0RX4I  "IIEGflllVE  ROOM  X3="S0RX5 

330  REM - SELECT  SMOLLER<SUBSOIIIC)ROOT 

390  >i3=S0R!i3 
400  2=01/J!3 

410  B3=nTIMZ/Si?R'' 1-Z»Z)) 

420  P?-F0*)i?»<l-X3»X3)»Il/<X3»<l-X9»X9>»C0SB3> 

430  P4-P3f  <  1-X31X3)  I  <-r,2)  i 

440  REM - CRLC.  SIRGII.  PRESSURE  III 

450  Fr=P2*(l-Xl»!!l)l<-G2) 

460  P3"P2»(1-<G0»X1)I2M<-G2) 

420  REM - PRIIIT  SECTIOII 

430  FRIIII  -IIIFUT  PRIR" 

490  PRIIIT  ’ - " 

500  PRIlir 

510  FPlIir  ”>!R»-XrnvER"FO"OF  E’LRPE  SPRCE" 

520  PRIMI  -X=”X1*G0"OVER-1-FO"OF  BLRDE  SPRCE” 

5?0  PRIlir  -F2=”F2I  "BEIfl  2=-B2 
510  PRIIIT  "PTR=”Pri  ”FTB»”P8 
550  FRUIT 

555  rRlIir  ”<FREF-”P0I"PTREF-"F9”>” 

556  PRIIIT 

560  PRIMI  "COLCULRIEP  MIXED  OUT  FLOH” 

520  PRINT  ■ - - - - “ 

530  PRIIIT 

590  PRIIIT  ”X3='”X3 

600  PRINT  "Ba-'B? 

610  PRINT  ”F3="P3 

620  PRIIIT  ”PT3-"F4 

630  STOP  ' 


Figure  E4 .  Analysis  Program  Listing 
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TABLE  E2 


EFFECTS  OF  VARIED  X,  YAW  AND  AREA 


Yaw 

Xe/Xa 

Yaw  (Mixed) 

Psratio 

Ptratio 

%  Area  Xg 

60 

0 

73.93 

1.0044 

.9979 

.5 

0 

0 

0 

1.0179 

.9911 

.5 

43 

0 

61.93 

1.0015 

.9953 

.5 

43 

.  05 

59 . 60 

1.0086 

.9950 

.5 

43 

.  1 

57.41 

1.0077 

.9950 

.  5 

43 

.25 

51.85 

1.0054 

.9958 

.  5 

43 

.35 

69.05 

1.0040 

.  9966 

.  5 

43 

.45 

46.92 

1.0029 

.9974 

.5 

60 

.  5 

62 . 57 

1.0011 

.9979 

.  5 

43 

.  5 

51.03 

1.002 

.9978 

.5 

43 

.  5 

46.08 

1.00242 

.9978 

.5 

40 

.  5 

43 . 06 

1.0026 

.  9978 

.5 

0 

.  5 

0 

1.0046 

.  9977 

.5 

20 

.  5 

22.08 

1.0040 

.9977 

.  5 

43 

.  Dt; 

•*  o  .  J  / 

X.0020 

.  9982 

.  5 

43 

.  65 

44.29 

1.0012 

.9989 

.  5 

43 

.  75 

43.54 

1.0006 

.  9994 

.  5 

43 

.85 

43 . 19 

1.0002 

.9998 

.  5 

43 

.95 

43 . 02 

1.0000 

.  9999 

.5 

43 

1.0 

43.0 

1.0 

1.0 

.5 

0 

1.0 

0 

1.0 

1.0 

.  5 

60 

1.0 

60.0 

1.0 

1.0 

.  5 
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E4 .  TESTING  RESULTS 

The  results  in  Table  El  show  excellent  agreement  between 
the  two  predictions  and  suggest  that  the  programmed  fully- 
mixed-out  flow  calculations  are  correct.  It  is  not  possible, 
however,  to  determine  with  the  programmed  test  case  whether 
the  calculation  will  be  accurate  for  all  initial  conditions. 

It  is  noted  that  the  inlet  flow  angle  of  43  degrees  gives 
the  maximum  turning  angle,  during  mixing,  as  determined  by  the 
analysis  program.  The  angle,  in  all  cases  of  varying  the  flow 
fraction  at  Xg,  is  seen  to  increase  as  the  fraction  decreases, 
until  the  fraction  is  about  0.1  of  the  flow  area.  Decreasing 
the  ratio  of  to  Xg  results  in  less  turning  in  cases  where 
the  flow  area  fraction  is  one-half. 
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APPENDIX  F 


PROBE  ANGLE  REFERENCING 

The  free-jet  method  as  described  in  Appendix  C  of 
Reference  6  was  used  to  relate  the  measured  yaw  angle  to  the 
locus  of  the  leading  edges  of  the  cascade  blades.  A  digital 
precision  inclinometer  with  a  resolution  of  0.1°  was  used  in 
all  the  following  angle  measurements. 


Figure  FI.  Probe  Angle  Referencing 


1.  Angle  Sg  is  the  angle  of  the  leading  edge  of  the  cascade 
to  horizontal  as  illustrated  in  Figure  FI.  The  average 
value  obtained  in  blade-to-blade  measurements  was  0.25° . 
This  compared  to  0.2”  as  measured  by  Dreon  [Ref.  3]. 
The  value  of  0.2°  was  used. 
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Figure  F2 .  From  North  Side  of  Free-jet 


2.  Angle  Ai--The  probe  was  pneumatically  balanced  (Figure 
F2)  at  free-jet  velocities  of  200  and  250  feet  per 
second  yielding  Aj  egual  to  49.7°  at  each  velocity. 


Figure  F3 .  From  South  Side  of  Free-jet 


3.  Angle  A2--The  probe  was  pneumatically  balanced  (Figure 
F3)  at  free-jet  velocities  of  200  and  250  feet  per 
second  yielding  Az  equal  to  49.1°  and  49.0°  respectively. 
A2  was  taken  to  be  49.0°. 


4  . 


Angel  A^  is  the  angle  of  the  probe  pneumatic  axis  to  the 
surface  of  the  bar  (Figures  F2  and  F3)  . 


A 


( 


2 


Using  the  measured  values 


A 


O 


^  49 .7-^49  ■  0  ^ 


A  o  =  49.35" 


5.  Angle  &j  is  the  inclination  of  the  free-jet  to  the 
horizontal . 


6^,  = 


A, -A, 


) 


Using  the  measured  values 


»  f  49.7-49 . 0  . 

6  j  z - ) 


6 


0.35 


O 


6. 


Angle  is  the  angle  of  the  pneumatic  axis  to  the 

vertical 


^PA  =  90-Ao 

Using  the  calculated  value  of 

P„  =  90-49.35 


=  40.65° 
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7.  Angle  "I '  is  the  angle  of  the  pneumatic  axis  to  the 
normal  to  the  locus  of  thf  leading  edges  of  the  cascade 
blading . 

PpA  =  Ppa-5b  =  90-A,-63 


Using  the  calculated  values, 

PpA  =  40.45“ 


8.  Angle  Bp  is  the  vernier  reading  when  the  probe  bar  is 
horizontal.  Since  the  vernier  scale  is  accurate  only  to 
0.2°,  Bh  was  measured  by  placing  the  probe's  mechanical 
axis  vertical  v.ith  the  inclinometer  and  then  measuring 
the  probe  bar  angle  from  horizontal  with  the 
inclinometer.  Bh  was  measured  to  be  40.4°. 

9.  Angle  Bp  is  the  flow  angle  as  measured  with  the  probe  yaw 
angle  vernier's  voltage  output. 

10.  Angle  B  is  the  flow  angle  to  the  normal  to  the  locus  of 
the  leading  edges  of  the  cascade  blading. 

Hence 

P  =  PpA"^  (Pf  +  Ph^ 


yieldiiig  the  final  expression  for  the  referenced  yaw  angle  of 

P  =  40.45  +  (P^  +  40.4) 


The  above  expression  was  incorporated  in  the  "CALC" 
program  with  a  user  input  of  Bh  in  the  event  that  it  should 
change.  Bp  is  input  from  the  yaw  transducer  during  a  scan. 
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